LIDriHIU 

RESEAn::M REPC'vTS division 
NAVAL FOSTG-I'OUME SCliOC 
MONTEREY, CALiEORNlA 93941 



NPS52-8Q-012 



NAVAL POSTGRADUATE SCHOOL 

Monterey, California 




Baseline Implementations of the 
Standard Line Editor (SLED) 



L. Cox, R. Coulter, 

C. Taylor, R. Burnham, and S. Smart 

October 1980 



Approved for public release; distribution unlimited. 



Prepared for Naval Postgraduate School, Monterey 
California 93940 

FEDDOCS 
D 208.14/2; 

NPS-52-80-012 




DUDLEY KNOX LIBRARY 

NAVAL POSTGRADUATE SCHOOL 

MONTEREY, CA 93943-5101 POSTGRADUATE SCHOOL 

Monterey, California 



Rear Admiral T. F. Ekelund 
Superintendent 



D. A. Schrady 
Acting Provost 



Reproduction of all or part of this report is authorized. 
This report was prepared by: 



/ 



Unclassified 



security classification of this page Dmim 



DUDLEY KNOX LIBRARY 

naval postgraduate SCHOOI 

IWONTERFV rn 






REPORT DOCUMENTATION PAGE 



i RCPORT 

NPS52-80-012 



READ IHSf^rtlJtrTffStis ‘ 
BErOWE COMPLETING FORM 



a. OOVT ACCCSSION MO. 



S- RECIPIENT'S CATALOG NUMRER 



4 TITLE Suhiittm) 

Baseline Implementations of the Standard Line 
EDitor (SLED) 



s. tyre of report * PERIOD COVERED 



Technical Report 



i. perporminq oro. report number 



7. AuTMORr«> 



a. CONTRACT OR GRANT NUMRERM) 



Lyle Ashton Cox, Jr., et. al . 



t. performing oroanixation name and AOORCaS 

Naval Postgraduate School 
Monterey, CA 93940 



10. program element, project. TASK 

AREA * WORK UNIT NUMBERS 



II CONTPtOLLINC OFFICE NAME ANO ADDRESS 

Naval Postgraduate School 
Monterey, CA 93940 



12. MCFOMT date 

October 1980 



IS. number OP PAGES 



117 



f4. monitoring agency name a AOORESi/lf tUtfmtmmi trwm C«n«r«lllifa OWemi 



ti- SECURITY CLASS, (oi tHim r^rt) 

Unclassified 



osclaisification/oowmcraoinc 

SCHEDULE 



IS. distribution statement (of 



Approved for public release; distribution unlimited. 



17. DISTRIBUTION STATEMENT (oi m* «A4 i#pm| In Bimck 20, If kUlnemnt hmm Jf 



a. supplementary notes 



It- KEY WORDS a»t U nmcmmmmrr 

Text Editor 
Software Engineering 
Computer Networks 



mnk tOmntIfy Of Mock mtmkt) 



20. ABSTRACT (Contltmm an «ld« II nmcmmmmf anW Ikmntitf kr kimek mwmk»r) • • 

In response to a recognized >^equirement for a more uniform man machine inter- 
ace, especially in multiple machine networks, a standardized text editor was pro- 
Dosed(l), This editor, "SLED" was designed to be easily implementable in several 
commonly available higher level languages. This document reviews two baseline im- 
ilemefitations taken directly from the SLED stanciards which users (ray want to con- 
sider when implementing SLED upon local systems. These baseline programs were 
written and documented with portability and understandability as goals. 



DD . 1473 

(Page 1) 



COITION OF I MOV «• It OatOLCTC 
S/N OIO}-OI4*«ltOt ' 



Unclassified 



1 



IICURITY CLASSIPICATION OP TMtS PACE D»lm kntfd) 



Baseline Implementations of the 
Standard Line EDitor (SLED) 

Lyle A. Cox Jr. 

Editor 



Department of Computer Science 
Naval Postgraduate School 
Monterey, California 



ABSTRACT 

In response to a recognized requirement for a more uniform man 
machine interface, especially in multiple machine networks, a standard- 
ized text editor was proposed (1). This editor, "SLED" was designed to 
be easily impl ementabl e in several commonly available higher level 
languages. This document reviews two baseline implementations taken 
directly from the SLED standards which users may want to consider when 
implementing SLED upon local systems. These baseline programs were 
written and documented with portability and understandabil ity as goals. 



BACKGROUND 



During the Winter of 1979 and Spring of 1980, shortly after the 
Standard Line EDitor definition was first developed, several persons at 
the Naval Postgraduate School undertook implementations of SLED. Two of 
these implementations -- the documentation and the code — are repro- 
duced here. 



Appendix A contains the SLED implementation developed by C. F. 
Taylor, Jr. on an IBM 360 system in FORTRAN. Appendix B contains an 
alternate implementation developed by R. M. Burnham, R. J. Coulter, and 
S. W. Smart in the PASCAL language. 



Neither of these implementations should be considered "off the 
shelf" commercial quality software ready for installation. These sys- 
tems do however provide two critical portions of the implementation; 



1. Each contains the basic code in a 
language, and 

2. The code of each implementation is 



"portable" 
written for 



higher level 



readabil i ty. 
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and the documentation has been written to allow the program to be 
adapted to any system with a minimum of difficulty. 



It is hoped that these baseline programs will serve to facili- 
tate the implementation of the SLED man machine interface on a variety 
of machines. 
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Appendix A 

SLED FORTRAN Implementation 
(by C. F. Tayl or Jr. ) 

The purpose of these notes is to briefly describe the accompany- 
ing FORTRAN implementation of SLED. 

SLED FORTRAN Version FORTl.l was implemented on an IBM 360/67 
computer under the CP/CMS time-sharing operating system at the W. R. 
Church Computer Center at the Naval Postgraduate School , in a superset 
of IBM FORTRAN IV, Level G, which included the " IF-THEN-ELSE" and 
"WHILE-DO" constructs of WATFIV-S. The addition of these two constructs 
greatly simplified the writing of the program and were implemented with 
the aid of a preprocessor written by this author. Standard FORTRAN ver- 
sion (the output of the preprocessor) is shown on the following pages. 

This version was compiled using an IBM FORTRAN IV/G compiler. 

The package was implemented using the utility routines shown on 

pages A37-A40 of the listings, The 'TDISK EXEC" module was used to 

obtain the required disk space for the 4000 line (320K byte) temporary 
work file. It is assumed that this work space would be provided at the 

system level in any actual implementation of SLED. Because it is a 

direct-access disk file, sufficient space must be avail abe in advance 
for the maximum capacity of the editor, which in this case is 4000 
lines. This figure was selected somewhat arbitrarily; CP/CMS gives the 
user 800 bytes per track (IBM 2314), using the remaining space for over- 
head, so at 80 bytes per line, 4000 lines represents 400 tracks. 
Installations which do not need to edit such large files could reduce 
disk requirements by further limiting the capacity of the editor as fol- 
1 ows : 



1. Do a global substitution to replace the string '4000' in the 
program by the new capacity. 

2. Modify the 'DEFINE FILE' statement in subroutine MEMORY as 
necessary. 

3. Alter the FILEDEF statement in 'SLEDl EXEC (or the 
equivalent action on another system) to request less disk space. 

The basic data structures used are as follows: The file to be 
edited (unless a new file is being established) is read in sequentially 
by subroutine OPEN and stored in the work file (described above) which 
is conceptually a 4000 line by 80 column array. All references to the 
work file are made through calls to subroutine MEMORY. The lines of the 
work file are not necessarily kept in order. A 4000 element from the 
file is determined by popping the top element from the stack. This 
value is then recorded in the 4000 element array LPTR. LPTR(I) then 
always gives the address in the work file of the Ith line of the text 
file. As lines are deleted, their addresses are pushed back onto 
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additions and deletions of lines by manipulating pointers rather than 
the text itself. Still, the work file may be accessed sequentially by 
using LPTR(I) as the index. 

Input from the terminal is buffered in a circular queue in sub- 
routine 6ETLIN. This permits the "stacking" of more than one command 
per line at the terminal. Calls to GETLIN return a line from the head 
of the queue or, if the queue is empty it reads in a new line from the 
termi nal . 

The QUIT subroutine writes the work file sequentially (using 
LPTR as an index) to the output file. 

Additional notes which may be of interest to the local implemen- 
tor follow: (including deviations from the SLED standard). 

1. Integer*2 variables were used for all character storage (and 
for the two large arrays STACK and LPTR). Only one character was stored 
per word. 



2. Because FORTRAN reads only fixed-length formatted records 

from the terminal, the carriage return cannot be used to terminate a 
string. This means that 'DS* and 'RS' commands must use the logical 
terminator character (default '$') to terminate strings and that the 
'RS' command should be used as follows: RS$strl$str2$. 

3. The 'RS' command replaces only the first occurrence of a 
string in a line because of this author's firm conviction that to allow 
only multiple substitution would be dangerous. In an editor such as 
this without a TAB function, a common string substitution would be to 
replace one blank with two blanks on a line. What would happen if this 
were done for every occurrrence of a blank on the line is too horrible 
to contemplate. 

4. The CP/CMS operating system and IBM FORTRAN required that 
filenames be handled external to the program itself. The routine 'SLED 
EXEC executes the simple program 'SLEDVERS' when 'SLED' is typed to 
alert the user to the required entry procedure, 'SLEDl <filename> <file- 
type>'. SLEDl EXEC then invokes the actual edit program, SLED2. The 
filename given the program internally is meaningless and provided only 
for cosmetic reasons. This system requires that only one file be opened 
per session. 



5. Another limitation of FORTRAN required that the program read 
input from the line following the program prompt, not a serious problem. 
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SLED - STRUCTURED FORTRAN 
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10/02/H0 

FILE: SLED FC-^TR^M 71 ‘./WAL .'f i S Ti'.R A ,Ju \ 7 L SCH'Tl 

STANDARD LINE EDITOR — FORTRAN I MR L E N ENT A T I ON 

SLED VERSION FORTl.l NPS NQNTERCY SOOADl 
PROGRANNED BY: C. F. TAYLUk, JR., CODE 55TA 

FOR FURTHER INFORMATION SEE NP o TECHNICAL REPORT 
NPS 52-60-UOl 6Y L. A. COX, JR. 



MAIN program; 

READS IN COMMANDS AND CALLS THE APPROPRIATE SUaROUIlNr 
implements the ’’EDIT" MODE 

COMMON /BLKl/ IN, tlUT 
I /3LKS/MFLAG,EKRCT,CURLIN 

INTEGER*2 Ll,C2tA,C,D,L,M,0,Q,R,S,T,V, INLINE,BLNX 
INTEOER IN ,OOT,EKkCT ,CURLIN,NC 
Cl MENS I ON INLINtiaO) 

LOGICAL FLAG,OPENFL , MFLAG 

DATA A/ • A* / ,C/* C • / ,D/‘D' / , L/ • L •/ ,M/ • M* / ,0/'0* / ,q/ • q* / ,R/' R • / , 
I S/’ S' /, T/' TV ,V/* V»/,BLNK/' •/ 

2000 FORMAT I • O' ) 

2010 FORMAT I' -INVALID COMMAND- ',2AD 
2020 FORMAT (' -NO TEXT FILE OPEN-') 

2030 FORMAT I' -ONLY ONE FILE CAN BE OPENED PER SESSION IN THIS ’, 
1 'VERSION OF SLED- • ) 

C EDIT MODE — WRITE PROMPT 

WHITE I OUT, 2000) 

CALL GtTLINI INLINE, NO 
Cl = INLINEIl) 

C2 = INLINE (2) 

C FLAG GOES FALSE AFTER 'QUIT* 

FLAG = . TRUE . 

C UPENFL GOES TRUE AFTER FILE IS OPENED 

QPENFL = .FALSE. 

C MAIN EDI T LOOP 

while (FLAG) DO 

IF ( .NOT. (UPENFL .OR. (Cl.EQ.O) .OR. (Cl.EQ.M) 

I .OR. (Cl.EQ.V))) THEN DO 

C FILE NOT OPEN AND THIS IS NOT AN 'OPEN* COMMAND 

C OR A ‘MENU' OR 'VERSION' REQUEST 

WRITE (OUT, 2020) 

ELSE DO 

C EMULATE CASE (SWITCH) STATEMENT TO PROCESS COM1&NOS 

IF (Cl .EQ. 3LNK) GO TO 200 
IF (Cl.NE.L) GO TD 10 
CALL LIST(INLINF) 

GO TO 200 

10 CONTINUE 

IF (Cl.NL.S) GO TO 20 

CALL SCREEN! I NL INE) 

GO ID 200 

20 CONTINUE 

IF { ( Cl .ME. R ) .OR .( C2 .NE.SI ) GO TO 30 
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file: 



SLEO 



'(AVAL P3STGRAOUATE SEMPHI 



F((IU RAN 



T 1 



30 



AO 



50 



60 



70 



30 



90 



100 



llO 

c 

c 



c 

200 



C 



CALL RSUNLINE) 

GO TO 200 
CONTINUE 

IF ( ( C I .NE.R ) .OR .( C2. NE.L) ) GO TO 40 
CALL RL ( IiNL IN E) 

GO TO 200 
CONTINUE 

IF ( (Cl.NE. A).0R.(C2,NE.U) GO TO 50 
CALL AL( INLINE) 

GO TO 200 
CONTINUE 

IF { ( Cl .NE.O ) .OR .( C2.ME.S) ) GO TO 60 
CALL USI INLINE) 

GU TO 200 
CONTINUE 

IF (Cl. NE.O) GO TO 70 
call JUIT 
FLAG = .FALSE. 

GO TO 200 
CONT INUE 

IF (Cl.NE.V) GO TO 80 
CALL VERS 
GO TO 200 
CONTINUE 

IF (Cl.NE.N) GO TO 90 
CALL NENU 
GO TO 200 
CONTINUE 

IF (Cl.Nt.n) GO TO 100 

IF (ORENFL) THEN DO 

WRITE (OUT, 203a) 

ELSE 00 

CALL OPEN 
OPENFL = .TRUE. 

END IF 
GO TO 2 00 
CONTINUE 

IF KCl.NE.C ).QR.(C2.NE.T) J GO TO llO 
CALL CT(INLINE) 

GO TO 200 
CONTINUE 

IF PROGRAM GETS HERE» COMMAND IS INVALID 
WKI TE (OUT, 2010) Cl,C2 
ERRCT = ERRCT > 1 
ENO CASE 
CONTINUE 

IF (ERRCT. GE. 2) THEN 00 
CALL MENU 
ERRCT = 0 
END IF 
ENO IF 

IF (FLAG) THEN DO 
GET NEXT LINE 

IF ( .NCIT.MFLAG) WRITE (OUT, 2000) 
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FILE: SLED 



FOR FRAN 



MVAL ROSTGRAOUArt SC "001 



r I 

CALL GETLIMI INLINE, NC ) 
Cl = INLINE ( I ) 

C2 = INLINE(2) 

END IF 
ENO WHILE 
STOP 
ENO 



C 



BLOCK DATA 



2 

2 

3 



I 



COMMON /'3LKI/ IN, OUT 
/3LK3/ TFILE 
/BLK4/ TCHAR 

/BLK5/ MFLAGtERRCTtCURL IN 
INT£GER«2 TCHAR 

integer r>l,OUT,TFILE,ERRCT,CURL in 
LOGICAL MFLAG 

DATA IN / 5/,0U T /6 /, TCHAR/* S • / , E R RC T/ 0/ , MF L AG / . F A LS E . / 
TFILE/2/ 

END 



CJRL IN/ I/, 



C 

C 

C 



1 

2 



2100 
2U0 
212 0 
C 



C 



SUBROUTINE LIST(CLINE) 

DISPLAYS TEXT TO THE TERMINAL 

CCMMON /BLKl/ IN, OUT 

/BLK2/ LPTR,MAXLIN,EOF 
/BLK5/ MFLAG,ERRCT,CJRL IN 
INTEGER <^2 BLNK ,LP TR ,COMMA ,OUTL I N , C L I ME 

INTEGER IN,OUT,I , J,Nl TN2,MAXLIN,E0F,ERRCT,CURLlN,FErCH 
LOGICAL MFLAG,EFLAG 

U I MENS I UN CLINE! 30) ,OUTLIN( 9U) ,LPTR ( AOOO) 

DATA BLNK/* • / ,COMMA/ * , * / , F ET CH / 0 / 

FORMAT (• -invalid COMMAND-*) 

FORMAT (* * ,I4,lX,80Al) 

FORMAT (• -EOF-*) 

IF COL 2 IS BLANK, PRINT CU^LIN AND EXIT 
IF (CLINE! 2) .Eg. BLNK) THEN DO 

CALL MEMURY ! Ft TCH , OUT L I N , L P TR ( C UR L I N J ) 

WRITE (OUT, 2110) CURLIN, OUTLIM 
ELSE DO 

NOW CHECK FOR LINE NUMBERS IN COMMAND 
CALL COMLIN! 2, CLINE, Nl ,N2, EFLAG ) 

IF (Nl .LE. 0) Nl = 1 

IF (Nl .GT. N2) EFLAG = .TRUE. 

IF (Nl .GE. EOF) EFLAG = .TRUE, 

IF (EFLAG) THEN DO 

ERRCT = ERRCT I 
WRI TE ( OUT, 2100) 

ELSE DO 

ERRCT = 0 
I ^ Nl 
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file: sled 



FORTHAN Tl 



NAVAL ROST'.W AOUATE SCH''0( 



WHILE ( ( I .LE .N2 ) . AND. I I .LT .FOF ) ) f)U 

CALL ME'-^ORY ( FETCH , □ JT L I N , LR TK ( I ) ) 
.^R ITE (3UT ,2 113) I , 1UTL IN 
CURLIN = I 
I = I I 
END WHILE 

IF (I.GE.EOF) WRITE (HUT, 2120) 

END IF 
END IF 
RE TURN 
END 



SU3RCUTINE SCREE N ( CL INE ) 

DISPLAYS 20 LINES BEGINNING WITH CDOLIN GR OTHER SPECIF! ru l I N( 

CCMHQN /3LK1/ IN, OUT 

1 /BLK2/ LPTR , HAXL I N, E'JF 

2 /QLK5/ RFLAG,ERRCT,CJRL IN 

INTEGER IN ,OUT,MAXLIN ,EOF ,ERRCT , CURL I N, I , Nl ,N2 , L I MI T , 

I FETCH.N 

INTEGER-*‘2 C LI NE , L PTR , OU TL I N , 8LNK 
LOGICAL MFLAG.EFLAG 

01 ME NS I UN CLI NEI80) .QUTLINI 80 ) , L P TR ( 400 0 ) 

DATA BLNK/' »/, FETCH/0/ 

2100 FORMAT (• -INVALID COMMAND-') 

2110 FORMAT (• • , I 4 , 1 X , 80A I ) 

2 120 FORMA T ( • -EOF-' ) 

C 

EFLA3 ^ .false. 

C FIND OUT WHETHER USER SPECIFIED A LINE 

IF (CLINFI2) .NE.BLNK) THEN DO 

CALL COMLINI 2fCLINE,Nl ,N2,FFLAG ) 

IF (Nl .LE. 0) N I = I 

IF (Nl .GE. EOF) EFLAG = .TRUE. 

IF (.NUT. EFLAG) CURLIN = Nl 
END IF 

IF (EFLAG) THEN DO 

ERRCT = ERRCT ♦ I 
WRITE (OUT, 2100) 

ELSE DO 

ERRCT = 0 

LIMIT = MINO (CURLIN+19 ,EOF-l ) 

DO 10 I = CURLIN, LIMIT 

CALL M6M0RY(FETCH,GUTL IN,LPTR( I ) ) 

WRITE (OUT, 2110) 1,0'JTLIN 
10 CONTINUE 

CURLIN = LIMIT 

IF (LIMIT .Eg. EOF-l) WRITE (OUT,2120) 

END IF 
RETURN 
END 
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FILE: SLED 



FOKTRAN Tl 



•'JAVAL R') ST ,R Ai)UArE bCtlini 



SUOHGUTINE RL(CLINE) 

REPLACES CURRENT LINE DR THE SPECIFIFD LINE OR LINES .'.ITH 
ANY NUMBER UF LINES 

CCMMON /BLKl/ IN, OUT 

I /3LK2/ LPTR tMAXLI N,EDF 

I /3LK5/ MFLAG, ERRCTfCJRL IN 

INTEGER IN,UUr,MAXLIN,EOF,ERRCT,CURL IN, i,U ,N2, I , J , L I MI T , 
I STORE 

INTEGcK*2 CL INE,LPTR,BLNK 
LOGICAL MFLAi^,EFLAG 
DIMENSION CLINEI BO) ,LPTR( <tOOO) 

DATA 8LNK/* '/,STORE/l/ 

2100 FORMAT (• -INVALID COMMAND-’) 

N1 = CURL IN 
N2 = Nl 

DETERMINE WHICH LINE(S) TO REPLACE 

IF (CLINEI 3) .N6.8LNK) THEN 00 

CALL COHLINI J , CL I N 6 , N 1 , N2 , E F L AG ) 

IF (Nl .L6. 0) EFLAG = .TRUE. 

IF (Nl .GE. EOF) EFLAG = .TRUE. 

IF (.NOT. EFLAG) CURLIN = Nl 
END IF 

IF (EFLAG) THEN DO 

ERRCT = ERRCT + I 
^RITE (OUT, 2100) 

ELSE DO 

ERRCT = 0 

IF (N2 .GE. EOF) N2 = EOF - 1 
REMOVE DESIGNATED LINES 
N = N2 - Nl >1 
DO 20 I = l,N 

LIMIT = EOF - 2 
CALL PUSH(LPTR(Nl ) ) 

DO 10 J = Nl, LIMIT 

LPTRI J) = LPTRI J + l ) 

10 CONTINUE 

EOF = EOF - 1 
20 CONTINUE 

NOW INPUT REPLACEMENT LINES 
CALL INPUT 
END IF 
RETURN 
END 



SUBROUTINE AL (CLINE) 

INPUT TEXT AFTER LINE N 
COMMON /BLKl/ IN, OUT 



n 



no ooooo no 



FILE: SLEn 



FGHTRAN FI 



NAVAL POSFGR AOUAFF: ''^LMnOL 



2 100 



2100 

2110 

2220 

2250 



/HL^5/ MFLAG, ERRCT.CJRL IN 
INTEGER«=2 BLNK, CLINE 

INF EG EH IN.nUT , I f J»N»N1 ,N2 , ERRC T , CURL IN 
LOGICAL MFLA>,,£FLAG 
DIMENSION CLINEI80) 

DATA QLKK/* •/ 

FORMAT (' -INVALID COMMAND-') 

EXTRACT LINE NU^8ER FROM COMMAND LINE 
CALL COML INI 3 ,CL I NE,N1 , N2 ,EFLAG ) 

IF INI .LT. 0) EFLAG = .TRUE. 

N = N1 

IF (EFLAG) THEN DO 

ERRCT = ERRCT *■ 1 
WRITE (OUT, 2100) 

ELSE 00 

ERRCT = 0 
CURL IN = N + 1 
CALL INPUT 
END IF 
RE TURN 
END 



SUBROUTINE OS(CLINE) 

PART OF SLED PACKAGE 

DISPLAYS ALL LINES CONTAINING THE DESIGNATED STRING, POSSIBLY 
LIMITED TO LINES N THROUGH M. 

COMMON /8lK1/ IN, OUT 

/BLK2/ LPTR.MAXL IN,EOF 
/8LK5/ MFLAG, ERRCT, CURLIN 

INTEGER IN,UU T ,MAXL IN , EOF , E RRCT , CURL I N, N1 , N2 , NC , F E TCH , MC 1 
INTEGER *2 CL I NE,LPTR,flLNK, STRING, LINE 
LOGICAL MFLAG, EFLAG, MATCH, FOUND 

DIMENSION CLINEI80) , LINE 180) ,LPTR (4000), STRING! 80) 

DATA BLNK/* •/, FETCH/0/ 

FORMAT (• -INVALI D COMMAND-' ) 

FORMAT (• • ,14,IX,80AI) 

FORMAT (• OLO STRING?>') 

FORMAT (• -NO STRING FOUND-') 

DEFAULT VALUES 
FOUND = .FALSE. 

EFLAG = .FALSE. 

Nl = I 

N2 = EOF - 1 

determine WHETHER N1,N2 WERE SPECIFIED BY USER 
IF (CLINEO) .NE. BLNK) THEN DO 

CALL COMLINO, CLINE, Nl ,N2, EFLAG) 

IF (Nl .GE. EOF) EFLAG = .TRUE. 

IF (N2 .GE. EOF) N2 = EOF - 1 
IF (Nl .L6. 0) Nl = 1 

END IF 
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file: 



20 



2 100 
2110 
2230 
2240 
2250 



SLED FORTRAN T1 NAVAL ST NR AOUA FE SCHrCl 

I F ( EFLAO) THEN OU 

ERKCr = ERRCT f I 
WRI Tt (nUT,2100) 

ELSE 00 

ERRCT = 0 

FETCH STRING; ISSUE PR3NPT IF NECESSARY 
IF {.NOT. NFLAG) t^RITE (OUT, 2220) 

CALL GETLIN (STRING, NC ) 

IF (NC .LE. 0) THEN DO 
ERRCT = ERRCT I 
WRITE (OUT»2lOO) 

ELSE DO 

00 20 1 * Nl,N2 

CALL MEMORY! FETCH, LINE, LPT R( 1 ) ) 

CALL SEARCH! LINE , STRING, NC ,MATCHt MCI I 
IF (MATCH) THEN DO 
FOUND = .TRUE. 

WRI TE (OUT, 21 10) I ,LIN6 
CURL IN * I 
END IF 
CONTINUE 

IF (.NUT. FOUND) WRITE (OUT, 2250) 

END IF 
END IF 
RE TURN 
END 

SUBROUTINE RS(CLINE) 

PART OF SLED PACKAGE 

REPLACES THE FIRST OCCURRENCE OF STRlNGl WITH STRING2 UN THE 
CURRENT LINE UR WITHIN THE SPECIFIED RANGE OF LINES 

COMMON /BLKl/ IN, OUT 

/BLK2/ LPTR,MAXL IN,ECF 
/t3LK5/ MFLAG fERRCT ,CURL IN 

I NTEGER IN ,UU T ,MAXL IN ,£0F , ERRCT , CURL IN, N I ,N2,I,J,K,L,M, 

N,MC I fNC l,NC2tFETCH,ST0R£ 

INTEGER*2 CL I NE, L PTR , 8L NK , S TRl , S T R2 , L INE 

DIMENSION LPTR(4000) ,CL I NE ( 80 > , S TR I ( 50 ) , S TR 2 ( U 0 ) , L I NE ( 'T 0 ) 
DATA BLNK/* •/, F E TCH/ 0/ , STORE/ 1 / 

LOGICAL MFLAG , FOUND t MAT CH , E FLAG 
FORMAT (* -INVALID COMMAND-*) 

FORMAT (• • , I4,lX.aOAl) 

FORMAT (• OLD STRlNG?>*) 

FORMAT (• NEW STRING?>') 

FORMAT (' -NO STRING FOUND-*) 

DEFAULT CJNUITIQNS 
N1 CURLIN 
N2 = Nl 

EFLAG = .FALSE. 

INTERPRET COMMAND LINE 
IF (CLINE! 3) .NE. QLNK) THEN DO 

CALL COMt.lN( 3,CLINE,Nl ,N2, EFLAG » 

IF INI .LE. 0) EFLAG = .TRUE. 
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FILE; SLEO 



FORTRAN T1 



NAVAL I'OSTOH ADO \TE: SCHFOL 



C 



C 



C 

c 



10 

20 



30 

^0 



4 5 



C 



IF (N1 ,GE. EOF) EFLAG = .TRUE. 

IF (N2 .GE. EOF) N2 = EuF - 1 
END I F 

IF (EFLA3) THEN DO 

ERRCT = ERRCT * 1 
WRITE (OUT, 2100) 

ELSE DO 

ERRCT = 0 

READ IN TWO STRINGS; PROMPT IF NECESSARY , 

IF (.NUT. HFLAG) WRITE (0JTt2230) 

CALL GETLINI STR I, NCI ) 

IF (NCI .LE. 0) EFLAG = .TRUE. 

IF (.NUT. -(FLAG) WRITE (OUT, 2240) ' 

CALL GETLIN( STR2,NC2) ' 

IF (EFLAG) THEN DO 

ERRCT = ERRCT > I 
WRITE (OUT, 21 00) 

RE TURN 
END IF 

NOW FIND STRINGl 
FOUND = .FALSE. 

00 50 K = Nl,N2 

CALL MEMORY(FETCH,LnE,LPTR(K) ) 

CALL SEARCH( L INE , STR L ,NCl ,NATCH,MCl ) 

IF (MATCH) THEN 00 

NOW MAKE SUBSTITUTION 
J = MCI 

FOUND = .TRUE. 

DELETE STRINGl 
DO 20 I = I, NCI 

DO 10 M = ^ , 79 

LINE(M) = LINE(M+l) 

CONTINUE 

CONTINUE 

NOW MAKE ROOM FOR STR1NG2 
IF (NC2 .GT. 0) THEN DO 
DO 40 L = I , NC2 
M = 31 - J 
00 30 I = 2,M 

LlNE(a2-I) = LINE(8l-I) 

CONT INUE 
CONTINUE 

NOW INSERT NEW STRING 
on 45 I = l,NC2 

LINE(J<-I-1 ) = STR2 ( I ) 

CONTINUE 
END IF 

STORE REVISED LINE 

CALL MEMORY! STOR E , L I NE , L PTR ( K ) ) 

01 SPLAY RE VI SEO L INF 
WRITE (JUT, 2110) K,LINF 

REMOVE "C IN CC I OF AO'JVE LINE TO ENABLE 
DISPLAY OF EACH LINE IN wdCH A STRING IAS BEEN 
REPLACED 
COWL IN = K 
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END [F 

50 continue 

IF (.NOT. FOUND) rtRITE (OUT, 22^0) 

END IF 
return 
END 

SUBROUTINE CT 

PART OF SLED PACKAGE 

changes the message terminator to any valid CMARACTEf^ 



1 

2 



2100 

2200 



COMMON /OLKl/ IN T, OUT 
/MLK4/ TCHAR 

/BLK5/ f-'FLAG tERRCT tCURL I N 
INTEGER I N^UU T ,ERRCT , CURL IN ,NC 
INTEGcK=i-2 TCHAR, I NLI N,B LNK 
LOGICAL ME LAG 
DIMLNSIJN INLINIBO) 

DATA BLNK/» »/ 

FORMAT (» -INVALI D COMMAND-' ) 
FORMAT (» TERMINA TGR?>» ) 



IF (.NOT. MFLAG) THEN DO 
ISSUE PROMPT 
WRITE (OUT, 2200) 

END IF 

CALL GETLINI INLIN,NC) 

IF ( ( NC. EQ.O) .OR. (INL IN (1 ) . EQ.BLNK) ) 
ERRCT = ERRCT 1 
■WRITE (OUT, 2 100) 

ELSE OU 

TCHAR = INLIN(l) 

END IF 
RE TURN 
END 

SUBROUTINE MENU 



THEN DO 



' PART OF SLED PACKAGE 

PROVIDES USER WITH A SUMMARY OF AVAILABLE COMMANDS 
AND THEIR FORMATS. 



COMMON /BLKl/ IN, OUT 
INTEGER IN, OUT 

200 FORMAT (• SLED COMMAND SUMMARY:'//' LINF/TEXT I N SE R T ’ , T 3 5 , 

1 'STRING REPLACEMENT* /3X ,’ ALN' ,T 10 ,' INSERT <A>FTf:R <t>INE N*, 

2 TAO, 'RSiPiOi' ,T43» '<R>6PLACE <S> T R I NG • , / J X , » k L N ' , T I U , 

3 '<R>EPLACE <L>INE N .OR . ' , T AO , ' RSNSP SOS • , T5 0 , ' ” P” WlTi ''U" IN'/ 

4 3X, *HLN,M» ,T15,' LINES N THRU , T 40 , • RSN , M S P £ JS ' » 1 52 , 

5 »INUICATED LINES.'/' OUTPUT COMMANDS ', T 3B ,' STR I NG SEARCH'/ 

6 3X,»L’ » no, 'DISPLAY CURRENT <L> I N E » t T40 , ’ )S SP S • , T 4 3 , 

7 »<0>ISPLAY LINES ’ /3X , ' LN * , T 10 , » OR LINE N.'.TBJ, 

8 'WITH <S>TRING " P" , ' / 3X , ' LN , M » , T I 0 , » L I NE S N THRU M»,T'.Ot 

9 *OSN,M$P$* , TAB,' UR SHOW ANY LINES') 

201 FORMAT ( 3X , • S ( , T 1 0, ' <S>HO W A ', 

X '"SCREEN” OF L INE S ' ♦ T 50 , ’ N- M CDN T A I N I NG " ?'" / ■) X , • SN • , T I ) , 
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C 

C 

C 



c 

c 

c 

c 

c 



I •‘•>HUW A f,CREbr,i FRiJM L I E ^4 ' , T38 , ' C )N T ROL CJ.3MA4')S'/ 

I 3X, • , T I ) , • i>HOr4 COMMA'4D <M>cMJ ( TH 1 f. } * , T AO , ' il • , T AA , 

3 '<U>REN A FILE JR ' /3X , • V , T IQ , • SHOW <V>ER3lJM IIF JR 1A T I JO • . 

A r52,'CRFATt A FILE FOR ED I T I N3 ' / T 40 , * C T <LRHANGE Mt L''3ICAI' 

5 5X,»TQ <0>Uir rHE EDIT TYPE '•g<R E T , T ■♦O , • IF > S AOF <r>ERMiM', 

6 'AT JR') 

WRITE (0UT,2J0) 

WRITE ( )jr,20l) 

RETURN 

END 

SUBROUTINE VERS 

PART UF SLEJ PACKAGE 



COMMON /tlLKl/ IN t OUT 
INTEGER lN,f)UT 

220 FORMAT (’ SLEO VERSION FORTl.l NPS MONTERFY 300401'/ 



1 

2 

3 

4 

5 

6 
1 
8 



LOCAL EXPERT IS C, TAYLOR 409 - 6 46- 2 1 0900-17)0 PST/POT'// 

' LINE DELETE KEY IS < > (ASCII) OR <CFNT SIGN> ', 
'(EBCDIC)'/' CHARACTER DELETE KEY IS <J>'// 

• EDI TOR LOGICAL MESSAGE TERMINATORS ARE:'/ 

’ m <RETURN> AND (2) <$>'// 

• AND CAN BE CHANGED TO ANY STANDARD FORTRAN CHARACTER.'/ 

• ALL INPUT IS TRANSLATED TO UPPER CASE.'/ 

• THE FOLLOWING DEVIATIONS FROM SLEO STANDARD WERE REQUIRED:') 



221 FORMAT ( 

9 ' ( L ) 

* /' 

1 " ’ / ' 

2 • ( 3) 

3 • (4 ) 

4 • 

5N. ' / • ( 5 ) 

6 • 

7/ • 

222 FORMAT I 

1 • ( 6 ) 

2 • 

WRITE (OUT, 220) 
WRITE (GUT. 221) 
WRITE (OUT, 222) 
RE TURN 
END 

SUBROUTINE OPEN 



THE universal ENTRY COMMAND "SLEO" INVOKES INSTRUCTIONS 
FOR A NON-STANDARD ENTRY: "SLFDl <FILENAME> <FILFTYPP. 

(2) ONLY ONE FILE PER SESSION CAN BE UPEiiEO.'/ 

MAXIMUM FILESIZE IS 4000 LINES.'/ 

THE USER IS ASKED TO INDICATE WHETHER HE IS EDITING A 
NEW file in order TO PREVENT A DISK READ ERROR IN FOPTR- 
WHEN <RETURN> IS USED AS A LOGICAL MESSAGE '/ 
TERMINATOR, THE LINE OR STRING IS PADDED WITH f<LANKS ON 
THE RIGHT. THIS AFFECTS THE RS FUNCTION ONLY.') 



ONLY THE FIRST OCCURRENCE UF A STRING IN EACH LINE'/ 
IS REPLACED TO PERMIT FREE SUBSTITUTIONS OF BLANKS') 



OPENS TEXT file AND WORKSPACE FILE 

READS TEXT FILE INTO WORKSPACE IF IT ALREADY EXISTS 
INITIALIZES POUTERS ETC. 

CCMMCN /I3LKI/ IN, OUT 

1 /BLK2/ LPTR ,MAXL IN,EOF 

2 /BLK3/ TFILE 

3 /BLK5/ MFLAG,ERRCT ,CURLI N 

4 /BLK6/ STACK, STKPTR 

INTEGER IN, OUT, TFILE, LINE, EPRCT, CURL IN,STURE, lAXLIN.EOF , 
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I STKiMi^, I »NC 

r^TcGEK^Z LP Tk, j TACK ,F NAME, INLl N , Yb> , NO ,RF.P LY , AL I NE 
LOGICAL MFLAG 

0 (MEN 3 I JO LPTF ( AO 30) ,GL IOE( SO) , STACK ( VOOO ) , FOAME ( AO) , I'JL IF' ( ^0 ) 
CATA YES/' YV ,riLlNE/0O<‘' ' / ,00/ ' N ' / , S Tn:->L / I / 

100 ; FCR-lAi (AOAi) 

20A0 FORMAT (' LINES IN FILE: ',B0A1) 

20S0 FORMAT {' -GREAT IMG FILE: '.BOAl) 

2 AGO format <• F I LtN\ME?>' ) 

2A10 FCK1AT (• IS THIS A NE^ FIL£?>') 

2A20 FORMAT (• -MAX CAPACITY 4003 LINES FXCFEOtO-') 

C 

c initialize 

MAXlIN = *000 

CURL IN = I 

C KFAO IN filename (COSMETIC) 

IF I.NiJT. MFLAG) write (OUT, 2400) 

CALL GFTL INI FNAME ,NC ) 

C ASK <,HEThF:R IT IS A NEW FILE (TO PRFVEMT FJkTRAM R£,\J ERROR) 

5 WRITE (OUT, 2410) 

HEAJ (I.N,IOUO) INLIN 
REPLY = iriLlN(l) 

IF ( (REPLY. Nc -YES). AND. (REPLY .(NE. NO) ) GO TO R 
IF (REPl Y.Eg.YES) THEN DO 

WRITE (JUT, 2050) FNAME 
EOF = I 
STnPTR = 1 

C ACTIVATE file WITH AN ACCESS 

LPTW{ 1) = I 

CALL MEMORY( STORE, 3L INE,L?TR ( 1 ) ) 

ELSE D) 

C NOW RlAU IN TEXT FILE 

LINE = 0 

WHILE (.TRUE.) DO 

REaO (TFIL6,1000.£NO=10) INLIN 

LP TK(LI NE-t-1 ) = LINE I 

CALL MEMORY! STORE , I NL I M i L PT R ( L I NE H ) ) 

LINE = LINE 1 
ENU WHILE 

10 CONTINUE 

IF (LINE. GE. MAXLIN ) THEN 00 
WRITE I OUT, 2420) 

STOP 
END IF 

STKPTR = LINE * 1 
EOF = STKPTR 

C TELL USER FILE OPEN 

-.RITE I OUT, 2 040) LINE, FNAME 

END IF 

00 20 I = I, MAXLIN 
STACK(I) = I 
20 CCNTINJE 
RE turn 
END 

SUnR!^llT I ME UUi r 
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PART OF THE SLEO PACKAGE 

CLOSES UUr IMF. rtORK FILE AND NRITES THF NFw OR UPOATEO 
TEXT FILE 

COMMON /‘3LK2/ LP TR ,MA XL IN , E UF 
/■3LKJ/ TFILE 
/JLKI/ IN, GUT 

IN re SER MAXL I N , I N ,OUT , EOF, TFILE, L, LIMIT 
INTEGcR*2 LINE,LPTR 
DIMENSION LPTKI'+UOO) ,LINE(80I 
FORMAT (dJAl) 

FORMAT (• -',14,' LINES WRITTEN-') 

REWIND TFILE 
LIMIT = EOF - 1 
DC 90 L = I, LIMIT 

CALL MEMORY (FETCH, LINE ,LPTR { L) ) 

WRITE (TFILE, 2000) LINE 
CONTINUE 

WRITE (OUT, 2450) LIMIT 
RE TURN 
tNU 

SU3RQUT INE MEMORY { AC T ION ,L INE, PTR2 ) 

PART OF SLED PACKAGE 

handles all memory REFERENCES USING 0 I P EC T- ACC E SS DISK FILE 
CURRENT capacity IS 4000 LINES 

REUUIRcS AT LEAST 3 DEDICATED CYLINDERS OF DISK SPACE FOR 
WORK file under CP/CMS UN AN IBM 360/67 

COMMON /BLK3/ TFILE 

INTEGER WFILE ,TFI LE,ACT ION , STORE , PTR , AVAR , t RRS 
lNTcG£R*2 LINEfPTRZ 
DIMENSION LINE (BO) 

DATA STORE/1/ 

1000 FORMAT (80Ai) 

define work file 

WFILE = n 

DEFINE FILE i 3 ( 4000 , 80, E , AV AR ) 

C CONVERT PTR2 FROM INTESER*2 TO INTEGER 

PTR T PTR 2 

C initialize read ERROR COUNTER AND BEGIN 

ERRS = 0 

IF (ACTION .EQ. STORE) THEN 00 

WRITE ( WF ILE • PTR, 1 000 ) LINE 
ELSE 00 

C FETCH 

5 READ ( WF ILE'PTR,1000,ERR=99) LINE 

END IE 
RE TURN 

D ^ ERRS = ERRS I 

IF (ERRS .LT. 10) GO TO 5 
STUP 



1 

2 



2 ODD 
2450 



90 
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END 

SUBRUUriNh I.jPUT 
C 

C IRPLcMEriTi Tllfc INPUT MJOE 

C 

CUMiGN /5LKI/ IN, GUT 

I /ULK2/ LPTR.NAXL IN.EOF 

Z /-3LK5/ '^FLAG ,EHRCT ,C.UPL I N 

r'iTL-GcR<-2 PO, LPfR ,BLNK, OUTL IN 

INTt -lAXL! N , EOF , QRRC T , CU RL I N , STOPE , 1 , J , IN, JUT , NC 

LOGICAL NFLAG 

OI'^bNSriN LPTR(AOOO) ,0UTLIN(30) 

1)3T\ P)/' . • / , STURE/l/ ,BLNK/ ' •/ 

21 1 J l-GRNAT { • I>* ) 

C IP NO INPUT IN QUEUE, PROMPT USER 

IF (.WGT.NFLAGI write (OUT, 2113) 

CALL GETL INIOUTL IN,NC) 

whi LF ( .not. ( { GUTLINI 1 ) .EQ. PO) . AND. ( OUTL In ( 2 ) . E 3. TLJR) ) ) DO 
IF (NC .oT. 0) THEN 30 
C UNLESS IT WAS A NULL LINE 

C make room for NEW INPUT 

IF ( CURLIN. LT.EDF) THEN 00 
J = EOF - CURLIN 
30 10 I = l,J 

LPTRIEOF * 1 - I) = LPTR(EQF - I) 

LO CONTINUE 

ELSE OU 

CURLIN = EOF 

C KEEPS INPUT TEXT CONTIGUOUS 

ENO IF 

EOF = EOF 4- 1 

C GET A number FOR NEW LINE FROM STACK 

CALL POP (LPTR(CURL IN) ) - 

C NOW STORE THE NEW LINE 

CALL MEMORY I STOR E , OU TL I N, L P T R { CURL I N ) ) 

CURLIN = CURLIN + I 
FNO IF 

C IF NOTHING IN QUEUE, PROMPT USER 

IF (.NQT.MFLAG) WRITE (OUT, 2110) 

CALL GETLIN(OJTLIN,NC) 

END WHILE 
RE TURN 
C.N3 



C 

c 

r 



SUBROUT INE GE TL I N { OU TL I N , NC ) 

L.ETS A LINE FROM TERMINAL; QUEUES UP MULTIPLE LINFS 

CCMMON /BLKl/ IN, OUT 

1 /6LKA/ TCHAR 

2 /-3LK5/ MFLAG, ERRCT,CJRL IN 

I NTtG£R4'2 INLIN, OiiTLIN, QU EU £ , BLN K , TC HAR 

INTEGER IN ,OUT tERRCT , CURL IN, I , J , K ,LI NELN, j J ,£ UD 3, NC ,NCHAPS 

logical mflag,nflag 



f" I L u i 



lOlO 

20oU 

2070 

C 



20 



30 



^0 



SLcO FORfRA'4 T1 'JAVAl R'O S T i) R AO 0 A FE SCH'^ml 

OIME^JSION INL lNt( 80» ,OUTL IN( SO) ,OUEUr ( 30 , 1 .)) , NCHAR'i ( 10 ) 

OAFa rlLNK/’ • / ,L IM6LN/B0/ ,80/0/ , ENOO/0/ 

FOKSAF (SOAl) ' 

FORSAf {• -TRONCATEO; ONLY 10 ITESS PER LlNF-'( 

FORSAT (• -ILLEGAL CHARACTER 0=* ^3LAMK COM1AOO-') | 

MFLAG GOES TRUE WHEN VULTIPLE INPUT LINtS ARE STAC'<EO ' 

IF ( .N(JT .HFLAG) THEN 33 

READ ( IN , LJ10,ERR=99,EN0=08 ) INLIN 

1=1 i 

WHILE ( ( I .LE .LINELN) .AND. ( I NL IN ( I ) ..')c TCHAP ) » 00 I 

OUT L INI I> = I NLINI I ) I 

I = I + I i 

End WHILE ! 

NC = I - L 

IF ( INL IN ( I ) .EQ.TCHAR ) MFLAG = .TRUE. 

IF ( I .LE.LINELN) THEN 30 
DO 20 K = I ,L INELN 

O'JTLINIK) = 3LNK 
CONTINUE 
END IF 

WHILE ( INLlNin.EU.TCHAR) DO 
IF lENUg.GE.lO) THEN DO 
WRITE (3UT,2060) 

INLIN(I) = 3LNK 
ELSE 30 

ENOQ = ENOQ + I 
I = I I 
J = 1 

NFLAG = .TRUE. 

while (( I . LE .UNELN) . AMD. ( INL in { I) .NE. TCHAP ) ) 0^ 
QUEUE! J ,EN3Q) = I ML INI I ) 

IF I INL INI I ) .NE. -3LNK) NFLAG = .FAI.SE. 
1=1+1 
J = J + I 
END WHILE 

NCHARSIENOQ) = J - I 

IF ( ( I .GT .LINELN) . AND. NFL AG » NCHAR S ( ENDQ ) =0 
IF (J. LE.LINELN) THEN DO 
DO 30 K = J , LINELN 

QUEUE! K , ENOQ ) = 8LNK 
• CONTINUE 

END IF 
END IF 
END WHILE 

Else o u 

GET LINE FROM QUEUE INSTEAD 
8Q = OQ + 1 
NC = NCHARS18Q) 

DO AJ I = 1, LINELN 

OUTLINI I ) = QUEUE ( [ , 3Q ) 

CONTINUE 

IF I6Q.EQ.EN0Q) THEN DO 
BQ = 0 
ENOQ = 0 
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I'i 



C 

L 

c 



208U 

C 

C 



c 

c 

c 



20<50 



MFLAG = .FALSF. 
E'D IF 
Ei\D I F 
kE TUU.'-l 

CCNT IN'JF 
k t W I N 0 I f'l 
CONTI NUE 

WRITE (l'iOT,?'J 70) 

OUTL I N( I ) = 3LNK 
RE TURN 
END 



SUQRCUTINt: c>:J5H(X) 

PUSHES A POINTER TO A FREE LINE ONTI THE STACK 

CCVMDN /rSLKl/ IN, OUT 

/iilKb/ STACK, STKPTR 
INTEGER STKPTR , I N ,OUT 
lNTtOdR<=2 STACK, X 
JI'^ENSIGN STACK! 4000) 

rORHAT (' -FREE LINE LIST STACK OVERFlO^-') 

IF I STKP TR.GT .1 ) THEN 00 
STK'->TR = STKPTR - I 
STACK! STKPTR ) = X 
ELSE 00 

STACK OVERFLOW 
WRITE (OUT, 2080) 

END IF 
RE TURN 
ENO 



SUBROUTINE POP(X) 

POPS A POINTER TO A FREE LINE FROM THE STACK 

CCMMON /BLKl/ IN, OUT 

/BLK2/ LPTR,MAXLIN,EQF 
/8LK6/ STACK, STKPTR 
INTEGER STKP TR ,MAXL IN ,EOF , I N,OJT 
INTEGER»2 STACK, LPTR,X 
OIMENSIUN STACK(4000) ,LPTR{ 4000) 

FORMAT (• -ALL SYSTEM BUFFERS FULL-') 

X - STACK! STKPTR) 

IF ! STKPTR .LT. MAXLIN) THEN DO 
STKPTR = STKPTR I 
ELSE 00 

WRITE !0UT,2090) 

ENO IF 
RE TURN 
ENO 
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SU^iRnU r I NE CNVRT ( STR ING *I t Jf N) 

CCNVERT-S characters I THROUGH J OF STRING I 'IT(^ AN IMTEGcR N 

INT.£GEK*2 STRING, DIGIT 

INTEGER l.J,N,K,L 

DIMENSION STR ING (30> ,01 GI T( 10 ) 

DATA CIG[T/»0',»1»,'2*,'3*,'A','5',’6','7','H*,'QV 

N = 0 

OG 20 K = I, J 
L = I 

WHILE ( STRING! K) .NE.DI GIT( L ) ) DO 
L = L + I 
END while 

IF (L .LE. 10) then on 

N = N > (L-1) *{ 10*»( J-K ) ) 

ELSE DO 

N -99990999 
RETURN 
END IF 

20 CONTINUE 
RE TURN 
END 



SUBROUTINE COML I N ( C I , CL I NE , N I , N2 , E F L AG > 

FINOS AND INTERPRETS THE LINE NUMBERS CONTAINED ON A 
COMMAND LINE. CHECKS FOR ERRORS. 

INTEGER Cl,Nl ,N2 , I , J 
INTEGEH*2 CL I N6, 3LNK, COMMA 
LOGICAL EFLAG 
DIMENSION CLINE! 80) 

DATA BLNK/' • / ,COMMA/ * , • / 

EFLAG = .FALSE. 

FIND FIRST DIGIT 
I = Cl 
J = I 

WHILE ! 1 CL INE ! J) .NE.8LNK) .AND. ! CLINE! J) . NE. COMMA) ) 03 
J = J ♦ I 
END while 

IF !J.GE.RO) THEN DO 
EFLAG = .TRUE. 

ELSE DO 

C CONVERT FIRST NUMBER TO AN INTEGER 

CALL CNVRTICLINE, I ,J-l ,Nl ) 

C LOOK FOR SECOND NUMBER 

I = J > I 
J = I 

WHILE ICLINE! J) .NE.BLNK) DO 
J = J ♦ 1 
END WHILE 

IF !J .GE. 80) THEN DO 
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r I L=: 



c 

C 



6L Sc 



EFLAG = .TK'JE. 

) J 

[F (I .EQ. J ) THEN 03 
40 SECOND NU'^OFH 
•M2 = N1 



E M S T S 



ELSE JO 

CONVERT SECOND N'JMHF^ 

CALL CNVRT ( CL INE ♦ I rJ- I ,N2 ) 
END IF 

IF (Nl ,GT. N2) FFLAO = .TRUE. 
END IF 
END IF 
RE TURN 
END 

SOBRCUri It SEARCHiLINEfSTR ING, NCt'MTCh, OCl ) 



PAf-r OF SLED PACKAGE 

searches 'LriE* FOR THE FIRST OCCURRENCE JF 'STRING'. 

'MArCH' IS ScT TO '.TRUE.' IF A HATCH IS F:^J^<i), 

•NC IS THfc NUHBER OF CHARACTERS IN 'STRING' (REQUIRED INPUT) 
'Hf.l' IS AN OUTPUT INDICATING FIRST COL OF NATCH 



INTEGER I,J,L,NC,PCl 
INT£GER*2 LINE, STRING 
LOGICAL HATCH 

DIMENSION LINE(BO) , STRING (80) 

J = 1 

MATCH = .FALSE. 

while ( i .NDT.MATCH) .AND. I J.LE.SI-NC) » DO 

WHILE ( ( STRI NGI U.NE.L INE( J n . AND. ( J .L £. U-NC) J 03 
J = J * I 
END WHILE 

IF (J.LE.81-NCJ THEN 00 
I = I 
L = J 

rtHiLE ( { STRING(I>1 ) .EQ.L INE( L vl ) ) .AND. 

I ( ( L+L> .LT.80) . AND . ( l.Lc. ML ) ) DU 

L = L + 1 
I = I > I 
END WHILE 

IF { I ,EQ. NO THEN DO 
MATCH = .TRUE. 

ELSE DO 

J = J > I 
END IF 
END I F 
END W H 1 1. E 
MCI = J 
RETURN 
END 
ii 



23 



SLED - FORTRAN IV 



24 



oo o o o o oonooDoonoonoo 



lO/OZ/^O IZ,ZZ.^2 



FILE: 



2000 
2010 
2 020 
2030 



9000 



900 2 

C 



10 



20 



SLE02 FuRTRAM FI '.'AVAL R'IS T,,F \ F C 

SrANOAHO Li\C EO I TOR — FORTRA''! I IPL F '-t E .RT A T I I J 

SLOO ViRSlC'J FORTl.l NPS MONTC'^EY ROOAJl 
PRnGPA33EO ,3Y: C. F. TAYLORt JR.. COIF 55FA 

FOR FURTHER INFORMATION SEE N^S TECHNICAL .^EPORT 
NPS 52-3T-J01 OY L. A, COX, JR. 



MAIN program: 

RE AOS IN C0 3NANJS AND CALLS THF A c PR OPR I A T E S J -w.. yj T 1 N L 
implements THE "tOlT” MOOc 

COMMON /HLK1/IN,0UT /0LK5/ MF L AG , ER ’’ C T , C U RL I N 
lNr£GER’''2 C1,C2, At C,0,L,M,0, g,R,S, T ,V, inline, ml N< 

INTEGER IN,0UT,ERRCT ,CURLIN,NC 
DIMENSION INI INC 130) 

LOGICAL FLAGtUPENFL , MFLAG 

data A/'A'/,C/'C'/,D/'0'/,L/*L’/,M/'M'/,0/'0'/,U/'Q‘/,^/'R'/, S/'S 
»*/,T/'T'/,V/* V'/ ,0LNK/' ♦/ 

FORMAT ( ' E> ' ) 

FORMAT (' -INVALID COMMAND- ',2A1) 

FORMAT (• -NO TEXT FILE OPEN-') 

FORMAT (• -ONLY ONE FILE CAN 8£ OPENED PER SESSION IN THIS ', 'VFR 
♦ SION OF SLt J- • I 
EDIT MODE — WRITE PROMPT 
WRITE (OUT, 2000) 

CALL GETL INI INLI NE,NC) 

Cl * INLINE(l) 

C2 = INLINE (2) 

FLAG GOES FALSE AFTER ’QUIT* 
flag = .TRUE. 

OPENFL GOES TRUE AFTER FILE IS OPENED 
CPENFL - .false. 

MAIN EDIT LOUP 

IF (.NOT. (FLAG) ) GO TO 9001 

IF ( .NOT. ( .NOT. (OPENFL .OR. (Cl.EO.O) .OR. (Cl.FQ.M) .OR. (Cl.F 
♦Q.V) ) ) ) GO TO 9002 

FILE NOT OPEN AND THIS IS NOT AN ’OPEN' C-OMMAND 
OK A 'MENU’ OR 'VERSIOM* RED JEST 
WRITE (GUT, 2020) 
oO TO 9003 
CCNT INUF 

EMULATE CASE (SWITCH) STATEMENT TQ PROCESS CJlMANDS 
IF (Cl .EJ. 3LNK) GO TO 200 
IF (Cl.NE.L) GO TO 10 
CALL LIST! INLINE) 

GO TCI 200 
CONTINUE 

IF (Cl.NE.5) GO TO 20 
CALL SCREEN! INLINE) 

GO TO 200 

continue 

IF ( (Cl.NE .R ) .OR. (C2 .NE. S) ) 30 TO 30 
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CALL ^S(l>ILI'^F) 

GO TO 200 
30 CONTI OUE 

IF ( ( C I .NE .K ) .OR. ( C2.M6. L) ) GO T3 AO 
CALL RL( INLINE) 

;0 TO 2 00 

AO continue 

IF ( (Cl.NE.A) .0R.IC2.NE.U ) GO TO. 50 
CALL AL( INLINE ) 

GO TO 200 
5 0 CCNTIN'JE 

IF ( (Cl.NE.D).0R.(C2.NE.S) ) GO T3 60 
CALL 0S( INLINF ) 

GO TO 200 

60 continue 

IF (Cl.NE.Q) GO TO 70 
CALL QUIT 
FLAG = .FALSE. 

GO TO 200 
70 CONTINUE 

IF (Cl.NG.V) GO TO 80 
CALL VERS 
GO TO 200 
30 continue 

IF ICl.NE.M) GO TO 
CALL MENU 
GO TO 200 
90 CCNTINU6 

IF (Cl.NE.C) GO TO 100 
IF ( .NOT. ( fiPENFL ) ) GO TO 9Q0A 
WRITE (CUT, 2030) 

GU TO 9005 
900A CONTINUE 

CALL OPEN 
IJPENFL = .TRUE. 

9005 CONTINUE 

GO TO 200 
100 CONTINUE 

IF (( Cl.NE.C ) .OR. ( C2 .NE.T) j GO TO 110 
CALL CT( INL INE ) 

GU TO 200 
110 CONTINUE 

C 

C IF PROGRAM GETS HERE, COMMAND IS INVALID 

WRITE (OUT, 2010) C1,C2 
ERRCT = ERRCT > 1 
C END CASE 

200 CONTINUE 

IF ( .NOT. ( ERRCT.GE.2 ) ) GO TO 9006 
CALL MENU 
ERRCT = 0 

900b CONTINUE 

9003 CONTINUE 

IF ( .NOT .( FLAG) ) GO TO 9003 
C GET N£;^T LINE 
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IF ( .'J n.'^lFLAG) aRITE (HUT, 2000) 
gall ^F TL L';{ ! NL I.NE ,NC) 
wl ^ IMINCU) 

C2 = riLlNi:.(2) 

0008 CCNriNUE 

GO TO -)00.) 

9001 CONTIMUE 
STOP 
ENO 



8L0CK JATA 

COMMON /8LKI/ IN, JUT /BLK3/ TFILE /BLKA/ TCMAR /MK5/ '1M A ■} , f HR T 
»,CUKl IN 
INT[;CFR*2 TC)-!Aft 

INTEGl < IN, )JT,TFlLfc ,EP.RCT,CUPLIN 
LOGICAL MFLAG 

DATA lN/5 / ,J0T/6/ ,TCHAR/* S ' / ,ERP.CT/0/, TF I. A o/ . F AL > E . / , C J'^L J N / 1 / , TF 
♦ lLF/2/ 

ENO 



SU 8 RCUTINE LlSTICLINE) 

OlSPLArS TFxr TO THE TERMINAL 

CJM'-iUN / 8 LKI/ IN, OUT /BLK2/ LPTR , MAXL IN , EOF /ALK5/ a 3 , r p y , 

♦CURL IN 

I N T E G E R ♦ 2 d L N K , L P T R , C 0 M M A , 0 U T L I N , C L I N 6 

INTEGFR IN ,JUI, I , J,Nl,N2,MAXLIN,£0Ff ERKCT,CJKLlN,FETCd 
LOGICAL MFLAG, EFLAG 

01 ME NS I ON CLINEI 80) , OUTL IN (80) ,LPTR (4000 ) 

DATA BLNK/* •/, CUMMA /•,•/, FE TC H/0/ 

2100 format (• -INVALIO COMMANO-M 
2110 FORMAT (* ' , I 4 , 1 X , 8 0 A 1 ) 

2 120 FORMAT ( • -EOF-* ) 

C 

C IF COL 2 IS blank, PRINT CURLIN AND EXIT 

IF ( .N')T.(CL INE( 2) .EQ. QLNK) } 30 TO 9010 
CALL MEM'JHr (FETCH, OUTL INtLPTR(CURLlN) ) 

WRITE (OUT, 2110) CURLIN, OUTLIN 
GO TO 901 L 
9010 CCNflNJE 

C New CdtCK FUR LINE NUMBERS IN COMMANO 

CALL cJML INI 2, CLINE, Nl, N2, EFLAG) 

IF (N1 .LE . 0) Nl = I 

IF ( Nl .GT. N2) EFLAG = .Ti>UE. 

IF (Nl .vGE. ElF) EFLAG = .TRUE. 

IF ( .NO r . ( EF LAG) ) GO TO 90 12 
FRRCT = FRF CT *■ L 
HRITl ( OU T , 2 1 0 0 ) 
od TO ' >01 3 
9012 CONIINUF 

ERRC 1 - 0 



27 



non 



I, 



SLE02 FI '-lA'/AL i-"l ST AOUA I'E SC'ICO l 

I = F4 1 

IF (.NUT. ( ( 1 .LE.N2) .ANU.( l.LT .L-HF) ) ) ji) TO NOIF 

CALL MEMiJKY ( FE TC H , OU TL I N , L P T M IJ ) 

«kITE (uUT,2llU) I, UJTLIN 
CURL IN = I 
I = I 1 
GO rn 
CONTINUE 

IF (i.v^E.EOF) WRITE (OUT, 2120) 

CONT INUE 
CONT INJE 
RE TURN 
ENU 



SUGRCUTINE SCREENICL INE) 

DISPLAYS 20 LINES BEGINNING WITH CURLIN tlP OTHER SPECIFIC') LiNf j 

CuMHQN /BLKl/ IN, OUT /i3LK2/ L PTR , MAX L I N , E JF /BL<5/ MFLAG,FRPCTi 
♦CURL IN I 

INTEGER lN,nUT,MAXLIN,EOF,ERRCT,CJPL IN, I ,Nl,N2,LIMI T, FETCH, M I 

INrEGEK*2 CLINE, LPTR,UUTLIN,ALNK . 

LOGICAL MFLAG,EFLAG ' 

DIMENSION CLINE( dOJ , OUTL IN ( 30) ,LPTR { 4000 ) 

DATA RLNK/' '/, FETCH/0/ 

2100 FfJRMAT (• -invalid COMMAND-') 

2U0 FORMAT (' ' , I 4 , I X , 30 AL ) 

2 120 FORMAT ( • -EOF-' ) 

C 

EFLAG = .FALSE. 

C FIND OUT whether USER SPECIFIED A LINE 

IF ( .NjT.(CLlNE(2).NE.flLN< ) ) GOrTO OOIS 

CALL COMLINI 2 ,CL I NE,N1 , N2 ,EFLAG ) 

IF (N1 .LE. 0) Nl = L 

IF (Nl .GE. EOF) EFLAG = .TRUE. 

IF ( .NUT. EFLAG) CURLIN = Nl 
9016 CONTINUE 

IF { .NOT . (EFLAG) ) GO TO 901S 
ERRCT = ERRCT + I 
WRITE (OUT, 2100) 

GO TO 901H 

9018 CONTINUE 

ERR C T = 0 

LIMIT = MINOI CURLIN>19, EOF-1 ) 

DO 10 I = CURLIN, LIMIT 

CALL MEMQRY(FETCH,UUTLIN,LPTR(I ) ) 

WRITE (OUT, 2110) I,OUTLIN 
10 CONTINUE 

CURLIN = LIMIT 

IF (LIMIT .FQ. EOF-1) WRITE (DUr,2120) 

9019 CONTINUE 
RE TURN 
END 



FILE : 

9014 

9015 

9013 
<501 I 
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SUnPCUTIME RL( CLINE) 

REPLACES CJRREiNI LINE OK THE SPECIFIFO LINE 'P. LINES W[T) 

ANY NUMiiER OF LifJES 

COMMON /8LKI/ IN, OUT /3Li\2/ L PT R , MA X L I N , t )E / P L K :• / IFL AG , ER PC T, 
*CUKL IN 

INTcGER IN ,Q'JT, MAXL I N,EOF , ERPCT,CJRL IN,N ,r-IL ,N2 ,I ,J, LIMIT, ST'iRF 

INTEGER»2 C L i NE , L ?TR , « LNK 

LOGICAL MFLAG,EFLAG 

DIMENSION UL INEI 80) , LPTR ( AOOO) 

DATA BLNK/* •/,STURE/l/ 

2100 FORMAT (• -INVALID COMMAND-') 

N1 = CURL IN 
N2 = Nl 

DETERMINE WHICH LINEIS) TO REPLACE 
IF ( .NOT . I CLINE! J) .NE. BLNK ) ) GO TO 9020 

CALL CnMLIN(3 ,CLIN£,Nl, N2,EFLAG) 

IF (Nl .lE. 0) EFLAG = .TRUE. 

IF (Nl .GE. EOF) EFLAG = .TRUE. 

IF (.NOT. EFLAG) CURLIN = Nl 
9020 CONTINUE 

IF ( .NUT. ( EFLAG) ) GO TO 9022 
ERRCT = FPRCT f I 
WRITE (OUT, 2100) 

GO TO 9023 

9022 CONTINUE 

ERRCT ^ 0 

IF (N2 .GE. EOF) N2 = EOF - I 

REMOVE DESIGUATEO LINES 

N = N2 - Nl > 1 

DO 20 I = 1,N 

LIMIT = EOF - 2 

CALL PUSHILPTRINl ) ) 

DO 10 J = Nl, LIMIT 
LPTR(J) = LPTR(J^l) 

10 CONTINUE 

EOF = EuF - I 
20 CONTINUE 

NOW INPUT REPLACEMENT LINES 
CALL INPUT 

9023 CONTINUE 
RETURN 
END 



SURROUriNE AL( CLINE) 

INPUT TEXT AFTER LINE N 

COMMON /3LKI/ IN, OUT /QLK5/ MFL AG ,ER P CT , COR L I N 
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lNr£&FR*2 HLNiS, CLINE 

I N IL-GFK in , JUT , I , J, N ,Nl f N2 ,ERKCT ,C JRL I N 
LUGICAL MFl. AG.EFLAJ 
UI NENSION ClINEI HOI 
CATA RLNK/> '/ 

2 100 FIOHMAT (• -IMVALIO COMNANtJ-’l 

£)J TRACT LINE NUMBER FROM COMMAND LINE 
CALL COML IM 5 , CL I Nt , N 1 t N2 t EFL A G I 
IF (Nl .LT. 01 EFLAG = .TRUE. 

N = Nl 

IF ( .MOT , ( LFLAG) ) GO TO 002A 
ERECT = ERRCr <■ I 
WRITE (UJT,21uO) 

GU‘ TO GO 2 5 

9024 CONIINUC 

ERRCT ^ 0 
CUPlIN = N ^ I 

call input 

9025 CONTINUE 
RE TURN 
END 



SUBROUTINE OS (CLINE) 

PART (HF SLED PACKAGE 

DISPLAYS ALL LINES CONTAINING THE QESIGNATEJ STRiNGt POSSIBLY 
LIMITED TO LINES N THROUGH M. 

COMMON /RLKI/ IN. OUT /BLK2/ LP TR , M A XL IN , EOF /BLK5/ M^L VS , t R CT , CU' 
♦LIN 

INTEGER IN .OUT, MAXL I N , EOF , EP RC T , CUR L IN, N I ,N2 , NC , F E TCH, '^C I 
INTFGFR*2 CLINE. L°TR ,BLNK, STRING, LINF 
LUoICAL MF LAG, EFLAG, MATCH, FOUND 

01 ME NS I ON CLINEI HO) , LINE( 50) ,LPTR( 4000 ) .STRINGIR T ) 

DATA 8LNK/' ‘/.FFTCH/O/ 

2100 format (• -INVALID COMMAND-') 

2110 FORMAT (• ' , I 4, I X , BOAl ) 

2220 FORMAT (• OLD STRING?>’) 

2250 FORMAT (• -NO STRING FOUND-') 

C 

C default VALUES 

FOUND = .false. 

Er LAG ~ .FALSE. 

Nl = I 

N2 = EOF - I 

C DETERMINE wnETHER N1.N2 WERE SPECIFIED BY JSCR 

IF ( .NUT . (CL IN£( 0 ) .NE. BLNK) ) GO TO 9026 
CALL COMLlN(i ,CL INE.Nl , N2 , EFLAG ) 

IF (Nl .GE. EOF) EFLAG = .TRUE. 

IF (N2 .GE. EUF) N2 = EOF - 1 
IF (Nl .LE. 0) Nl = 1 
9026 CONTINUE 

IF ( .NOT. (EFLAG) ) GO TO 902B 
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ERRCT = ERKCT ^ I 
WRITE (f'JT ,2100) 

GU TU )0Z1 

9028 CONTINUE 

ERRCT = 0 

C FETCH SIRING; ISSUE PROMPT IF NECESSARY 

IF I. NOT. mflaG) WRITE (OUT, 2220) 

CALL GETLIM (STRING, NO 
IF I.NOT.(NC .LE. 0) ) GO TO 9030 

ERRCT = ERRCT <■ 1 
WRITE (OUT, 2100) 

GO TO 9031 

9030 CONTINUE 

)•) 20 I = ril,N2 

CALL 3EMURY {FETCH, L INE,LPTR( I ) ) 

CALL SEARCHIL ING,STR ING,NC, NATCH', MCI ) 

IF ( .NOT. ( MA rCH) ) GO TO 9032 
Ff.iUND = .TRUE. 

WRIlt (OUT, 21 10) I,LINF 
CURL IN = I 
9032 CONTINUE 

20 CONTINUE 

IF (.NUT. F0UN(3) WRITE (GUT, 2250) 

9031 CONTINUE 

9029 CONTINUE 
RETURN 
END 

SUBROUTINE RS( CLINE) 

PART OF SLED PACKAGE 

REPLACES THE FIRST OCCURRENCE OF^.STRI?JGl WITH STRING2 ON THE 
CURRENT LINE DR WITHIN THE SPECIf^IED ^ANGE OF LINES 

COMMON /BLKl/ IN, OUT /BLK2/ LP TR , M A XL IN , EOF /8LK5/ MFL AG , E R P CT , CUR 
«LIN 

INTEGER IN , OUT, MA XL I N, EOF, ERRCT, CURL IN, N1 ,N2 , 1 ,J ,K ,L ,M, N , MC. 1 ,^'G 1, 
#NC 2, FETCH, STORE 

INTEGER^Z CLINE, LPT R ,BLNK., STRl,STR2,LlNF 

ni MENSICN LPTR( AUOO) ,CL INE ( 80) ,STR I ( 80) , STR2 ( 3 0 ) , L I NE ( 30 ) 

OATA BLN.</' •/, FETCH/0/, STORE/ 1/ 

LOGICAL MFLAG,F0UN3 , HATCH, EFLAG 
2U0 FORMAT (• -INVALli) COMMAND-') 

2110 FORMAT (• * , I A , 1 X , 80 A 1 ) 

2230 FORMAT (' OLO STRING?>») 

22A0 FORMAT (’ NEW STKlNG?>*) 

2250 FORMAT (' -NO STRING FOUND-*) 

C 

c default conditions 

N1 = CURLIN 
N2 = N1 

1-flag = .false. 

C INTERPRET C JMMAND LINE 

IF ( .NUT .(CLINE! 3) .NF.BLNO ) GO TO 903<t 
c all CUM.LINI 3 ,CLI NE,N1 , N2 , EFLAG ) 

IF INI .Ll. 0) EFLAG - .TRUE. 



31 



ooooo 



file: SLED2 



FOKTRAN T1 



NAVAL RUST:',« ajUATC SCHfOL 



C 



C 



C 

C 



C 



c 



c 



IF INI .!',F. EOF) EFLAG = .TRUE. 

IF (N£ .GF. fcbF) N2 = EOF - 1 
903A CONTINUE 

IF { .NOT. (EFLAG) ) GO TO 9036 
ERPCT = EHRCT + I 
WHITE (GUT, 2100) 

GO TO 9U3T 
9036 CONTIN.JE 

ERRCT = 0 

REAL) IN TWO STRINGS; PROMPT IF NECESSARY 
IF (.NUT. .MFLAG) WRITE (OUT, 2230 ) 

CALL GETLIN( STRl ,tNCl) 

IF (NCI .LE. 0) EFLAG =• .TRUE. 

IF (.NOT. MFLAG) WRITE (OUT,22AO) 

CALL GETLIN(STR2,NC2) 

IF ( .NOT. (EFLAG) ) GO TO 9038 
ERRCT = ERRCT * I 
WRITE (OUT, 2100) 

RETURN 

9038 CCNTINUE 

NOW FIND STRINGl 
FOUND = .FALSE. 

DO 50 K = N1,N2 

CALL M6M0RY(FETCH ,LINE,LPTR (K) ) 

CALL SEARCH! L I NE , STR 1 ,N C I , M AT CM , MC I ) 

IF ! .NOT. (MATCH) ) GO TO 90-^0 
NOW MAKE SUBSTITUTION 
J = MCI 

FOUND = .TRUE. 

DELETE STRINGl 
DO 20 I = l,NCl 
00 10 M = J,79 
LINE(M) = LINEIM^-l) 

10 CONTINUE 

20 CONTINUE 

NOW MAKE ROOM FOR STRING2 
IF {.N0T.(NC2 .GT. 0) ) GO TO 9062 

DU 60 L = UNC2 
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65 

9062 



M = 31 - J 

DU 30 I = 2,M 

LINE (32-1) = LINE (8 I- I) 

CONTINUE 
C JNTINUE 

NUW INSERT NEW STRING 
DO 65 I = l,NC2 
L INE( J^I-l ) = STR2( I ) 

CUNT I NOE 
CONI I NOE 

STORE REIVISFD LINE 

CALL MEMORY (S TORE, L I NE,L?TR(K) ) 

DI SPLAY REVISED LINE 
WRITE (OUT, 2110) K,LINE 

REMOVE "C” IN CC 1 OF ABOVE LINE TO tN\BLE 
DISPLAY OF EACH LINE IN WHICH A STRING -lAS 
REPLACED 



BEEN 
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CURLIN = K 
90-^0 CCNFINUE 

50 Cf.'NriiNUE 

IF (.NOT. rOUNO) WRITE (OUT, 2250) 

9037 CONTINUE 
RETURN 
END 

SUBRCUTINE CT 

PART OF SLEO PaCKA.36 

Changes the message terminator to any valid character 

COMMON /0LK1/ INTtQUT /8L<A/ TCHAR /SLR5/ MFL AG ,ERRC T ,C IRL I •'! 

INTEuER IN.OUr ,EKRCT ,CURLI N,.NC 

INTFGER*2 TCUAR , INLl N,BLNK 

LOGICAL MFLAG 

DIMENSION INLIN(80) 

DATA 8LNK/' •/ 

2100 FORMAT (» -INVALID COMMAND-') 

2200 FORMAT (' TERMINATOR ?>' ) 

IF I. NOT. (.NOT. MFLAG) ) GO TO DO'^A 
ISSUE PROMPT 
WRITE (OUT, 2200) 

9044 CONTINUE 

CALL G6TLINI INLIN,NC ) 

IF ( .NOT.( ( NC.EQ.O) .CR.I INLIN( 1) .EQ.BLNK ) ) ) GO TO 9046 

ERPCT = ERRCT f 1 
WRITE ((JUT, 2100) 

GO TO 9047 

9046 CONTINUE 

TCHAR = INLIN(I) 

9047 CONTINUE 
RETURN 
END 

SUBROUTINE MENU 
PART OF SLED PACKAGE 

PROVIDES USER WITH A SUMMARY OF AVAILABLE COMMANDS 
AND THEIR FORMATS. 



COMMON /3LKI/ IN, OUT 
INTEGER IN, OUT 
200 FORMAT ( ' SLED COMMAND 
* REPLACEMENT • /3X 



SUMMARY:'//' LlNE/Tr:'XT I NS F. R T ’ , T 



, • ALN* ,T10 , ' INSERT 



*• ,T4S, ' <H>EPLACe <S>TRING* 

, T40, • RSNtPiQS' , T50 , '"P" WITH "Q** 



<A>rTER <L>INE N» 



*RU 

♦T3B, 'STR iNo 



M$P^a »' ,T52 t 
SEARCH'/ 3X,'L', 



IN’/ 



. T tO , 
<L> I 



• INDICATED I. IN6S.' /' 
TIO,' 31 SPLAY C'JKRFNT 



3X, '.a'J,M' , r 15,' Li 



• S T P I NG 
' ■< S T $ C T 
F rj . 






S 






: I 



*$',T4B, »<D>ISPLAY LINES ' / 3 X , » LN • , T 1 0 , ' OR LINE 



OUTPUT C)M HANGS 
T4H , • US > 



» / 1 A , 

♦ SHOW ANY LINES’ ) 



M' ,T10, 'LIN! 



S N THR J M' ,T43 



< L> INF • 
N.',T60, 'WITH 
• 05N,M|,i»1,» , TAR 



<S 

» -lo 



( 3X 



201 FORMAT 
♦IN INC 
♦ CMMANOS' / 



, • S( , r 10, * <S>HOW A • 
"P" */ 3X, ' SN’ , T 10, 'SHOW 
,'M' , Tin, 'SHOW 



3X 



, '"SCREEN" OF LINTS', TV), 

A SCREEN FROM LlNu M',TTR,*C 
COMMAND <M>F,NU ( T U I S ) ' , T m) , • T , 



•N-M CONTA 

* L ’ TL C 
T , ' <0 
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♦ >PFN A FILL UP • /3X, • V* f TIU » • SHQrt <V>F-SinN I i(- 1 )PM A T I OU • , T52,*r'f^A 
*TE A FILE FOP tU I T I N'G ' / T A-0 , * C T OHAN’GF THE LOGICAL'/ 5X,*If‘ ♦'JSU 
*ir THE FUIT TYPE " KRnT>’" .T-VJ , • ME SSAGF <T>F<'1IN', 'AIUR'I 
WRIfF (UUT,200) 
aRITE (OUT, 201) 

RF TURN 
END 

SUBROUTINE VERS 



PART flF SL6J PACKAGE 



COMMON /BLKl/ IN, OUT 
INTEGER IN, our 

220 FORMAT (' SLEO VERSION FORTl.l NPS MONTEREY HJOAOl'/ • LOCAL E XPrp 
»T IS C. TAYLOR -VOH-BhB-Z 69 1 0300-1700 ''‘ST/POT'// • LINE DFLETE KEY 

* IS < > (ASCII) OR <CENT S IGN> ', ME3C0IC)'/' CHARACTER OFLETF K 

*EY IS <il>'// • EDITOR LOGICAL MESSAGE TERMINATORS ARE:'/ • (1) 

»<RETURN> AND (2) <i>'// ' AND CAN BF CUANGcO TO ANY STANDARR 

* FORTE AN Character.'/ • all in^ut is translated to ijrper case.*/ ' 

* THE FOLLOWING DEVIATIONS FROM SLED STANDARD «ERE HEOUIRrO:') 

22 1 FORMAT ( ' tU THE UNIVERSAL ENTRY COMMAND "SLED" IN/i^Kr-S INSTROC 

«^TIONS' /’ FUR A NON-STANDARD ENTRY: "SLLDl <FIL£NA1E> KFIiry 

*YPE> "'/ ' (2) ONLY ONE FILE PER SESSION CAN BE OPENED.'/ ' ( 

■*3) MAXIMUM FILESIEE IS AOOO LINES.'/ ' (A) THE USE'< IS ASKED TO 

♦INDICATE whether HE IS EDITING A '/ • NEW FILE IN OPJFR Tf Pl> 

♦EVENT A DISK READ ERROR IN FURTRA N.'/' (5> .^HEN <RET/RN> IS USFD 

* AS A LOGICAL MESSAGE '/ ' TERMINATOR, THE LINE 'JR STRING IS 

♦PADDED WITH BLANKS ON* / ’ THE RIGHT. THIS AFFFCTS THE RS F 

♦UNCTION ONLY.') 

222 FORMAT ( ' (6) ONLY THE FIRST OCCURRENCE OF A STRING IN EACH LINE 

♦'/ ' IS REPLACED TO PERMIT FREE SUBSTITUTIONS OF BLANKS') 

WRITE I0UT,22D) 

WRITE {QUT,22L) 

WRITE (OUT, 222) 
return 

END 

SUBROUTINE OPEN 



OPENS TEXT FILE AND WORKSPACE FILE 

READS TEXT FILE INTO WORKSPACE IF IT ALREADY EXISTS 

initializes pointers etc. 



COMMON /BLKl/ IN, OUT /BLK2/ LP TR , M A X L I N , EOF /BLK3/ TFILE /BLK'3/ 
*LAG,CRRCT,CURL IN /BLK6/ STACK, STK?TR 
INTEGER IN,OUT,TFILE,LINE,ERRCr,CURL IN, STORE , MAX L IN, EOF, STKPTR, I, 
*NC 

INTEGER* 2 LPTR, ST ACK ,FNAME , INL IN ,YES , NO, REPLY , OL INE 
logical MFLAG 

DIMENSION LPTR{4000) ,BLINF.(30) ,STACK(4DDQ) ,FNAME(30) ,INLIN(B0) 

DATA YES/'Y'/,3LINE/80*' •/, NO /' N* /, STORE/ 1 / 

1000 format (3QA1) 



2040 FORMAT 
2050 FORMAT 
2400 format 
2410 FORMAT 



( 



( 



-• ,14, ' LINES IN 
-CREATIN'^ FILE: 
EILENAME?> * ) 

IS THI S A NEW FI LE?>' ) 



FILE: ',aO.\l) 

• , 3 DA I ) 
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2420 FORMAT {’ -MAX CAPACITY 4000 LINES EXCEEOtO-') 

INITIAL I ZE 
MAXLIN = 4000 
CURL IN = I 

READ IN FILENAME (COSMETIC) 

IF (.^.UT. MFLAO) WRITE (OUT, 2400) 

CALL GETL IN(FNAML»NC ) 

ASK WHETHER IT IS A NEW FILE (TO PREVENT FORTRAN READ ERROR) 
5 WRITE (OUT, 2410) 

READ ( IN, I uOO) INLIN 
REPLY = INL IN( 1 ) 

IF ( (REPLY. NE .YE S) .AND. ( REPLY. NE .NO) ) GO TO S 
IF ( .NOT. (REPLY. Eg. YES) ) GO TO 9048 
WRITE (OUT, 2030) FNAME 
EOF = I 
STKPTR = 1 

ACTIVATE FILE WITH AN ACCESS 
LPTR(l) = I 

CALL .MEMORY! STORE, SLINE ,LPTR( 1) ) 

GO TO 9049 

9048 CONTINUE 

NOW READ IN TEXT FILE 
LINE = 0 

9050 IF (.NOT. (.TRUE.) ) GO TO 9051 

READ (TFIL£,1000,END=10) iNLIN 

LPrR(LlNE+l) = LINE + I 

CALL MEMQRY(ST0RE, INLIN, LPTR(LINE+l) ) 

LINE = LIME *■ 1 
GO TO 9050 

9051 CGNTINUE 

10 CONTINUE 

IF ( .NOT. (LINE. GE. MAXLIN) ) GO TO 9052 
WRITE (OUT, 2420) 

STOP 

9052 CONTINUE 

STKPTR = LINE > I 

EOF = STKPTR 

TELL USER FILE OPEN 

WRITE (OUT, 2040) LINE, FNAME 

9049 CONTINUE 

DO 20 I = I ,MAXL IN 
STACK(l) * I 
20 CONTINUE 
RE TURN 
END 

SUBROUTINE OUIT 

PART OF THE SLED PACKAGE 

CLOSES UUT THE WORK FILE AND WRITES THE MEW OR ijPDATEi) 

TEXT FILE 

COMMON /6LK2/ LP TR , M AXL I N , EQ F /0L<3/ TFILE /8LKI/ I N , O'J T 
INTEGER MAXLIN, I N ,GU T , EOF , T F I L E , L , L I M I T 
INTEGEK<'2 LINE,LPTR 
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FILE : 



SLE02 



F.JRTRAN Tl 



NAVAL PJ:>r'',RAI)'JATF SCH.-OI 



QIMtNSlGN LPTR< 40 JJ) ,LINE( ) 

2000 FORNAT (ROAD 

2450 FORMAT (• -',l4f' LINES WRITTEN-' » 

C 

REWIND TFILE 

LIMIT = EOF - I 

□0 90 L = 1 ,LlMI I 

CALL MEMURYIt ETCH, line, LPTR(L) ) 

WRITE (TFlLc»2000) LINE 
90 CONTINUE 

WRITE (OUT, 2450) LIMIT 

RE TURN 

END 

SUBROUT INE MEMORY ( ACT ION ,L INE, PTR2) 

PART OF SLED PACKAGE 

HANDLES ALL MEMORY REFERENCES USING 0 1 RE CT - ACC E S S DISK FILE 
CURRENT CAPACITY IS 4000 LINES 

REOUIRES AT LEAST 3 OEDICATEO CYLINDERS OF DISK SPACE FOR 
WORK FILE UNDER CP/CMS ON AN IBM 3o0/67 

COMMON /BLK3/ TFILE 

INTEGER WF I LE ,TF I LE , ACT I ON , S TORE , PT R , AV AR, ERRS 
INTEGER*2 LlNE,PTR2 
DIMENSION LINE I 80) 

DATA STORE/l/ 

1000 FORMAT ( 3UA I ) 

DEFINE WORK FILE 
WFILE = 13 

DEFINE FILE I 3( 4000 , 80 , E , A VAR ) 

CONVERT PTR2 FROM INT6GER*2 TO INTEGER 
PTR = PTR2 

INITIALIZE READ ERROR COUNTER AND BEGIN 
ERRS = 0 

IF ( .NUT. (ACTION .EQ. STORE) ) GO TO 9054 
WRITE (WFILE'PTR, 1000) LINE 
GO TO 9055 

9054 CONTINUE 

FETCH 

5 READ (WFILE'PTR, 1000, ERR=99) LINE 

9055 continue 
RETURN 

99 ERRS - ERRS *■ 1 

IF (ERRS .LT. 10) GO TO 5 

STOP 

END 

SUBROUTINE INPUT 
IMPLEMENTS THE INPUT MODE 

COMMON /3LKI/ IN, OUT /BLK2/ LP TR, MAXL IN, EOF /BLK5/ MFL AG, *■ < R f T ,C IJ 
♦LIN 

INTEGER*2 PO , LP TR , B LNK , OUT L I N 

INTEGER MAXL IN, EOF, ERHCT, CUR LI N, ST ORE, I , J, IN ,DUT,NC 



36 



ooo 



FILF: SLED2 
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LOGECAL MFLAG 

01 MENS I CN LPrR( 4UJJ) ,UUTL I N( SO ) 

CATA PO/’ . • / , STOP E/ l/f BLNK/' '/ 

2110 FORMAT ( • I >' ) 

C IF NO INPUT IN QUEUE, PROMPT USE? 

IF (.NUT. MFLAG) rtRlTE (OUT, 2110) 

CALL GbTLINdJUTL IN,NC) 

9056 IF (.NUT. I .NOT . ( ( UU TL I N ( I ) . FO . ?0 ) . A NO . ( nij TL I N ( 2 ) . EQ . OLNK) ) ) ) GO 

♦TO 903 r 

IF (.NJT.(NC .GT. 0) J GO TO 9053 
C UNLESS IT WAS A NULL LINE 

C make room for new INPUT 

IF ( .NUT. ( CURLIN.lt. EOF) ) GO TO 9060 
J = EOF - CURLIN 
00 i 0 I = 1 , J 

LPTRIEUF ♦ I - I) = LPTRIEOF - I) 

10 continue 

GO TO 9061 

9060 CONTINUE 

CURLIN = EOF 

C KEEPS INPUT TEXT CONTIGUOUS 

9061 CONTINUE 

EOF = EOF I- I 

C GET A NU.M6ER FOR NEW LINE FROM STACK 

CALL POP( LF TR ( CURLIN ) ) 

C NOW STORE THE NEW LINE 

CALL MFMURY (STORE, OUTLIN ,LPTR ( CURL IN) ) 

CURLIN = CURLIN «- 1 
9058 CONIINUF 

C IF NUTHING IN QUEUE, PROMPT USER 

IF (.NOT. MFLAG) WRITE (OUT, 2110) 

CALL GETLIN(GUrLIN,NC) 

GO TO 9056 

9057 CONTINUE 
RE TURN 
END 



SUBROUTINE GET L I N ( OUTL I N , NC ) 

GETS A LINE FROM TERMINAL; QUEUES UP MULTIPLE LINES 

COMMON /BLKl/ IN, OUT /BLKA/ TCMAR /8LK5/ MF I. , EM R C T , C J? L I N 
INT£G£R-»2 I NL IN, OUTL I N , QUE UE , B LNK , T CHAR 

INTEGER IN , OUT , E RRC T ,CURL I N , I , J,K, L I NEL N , OQ , E N )Q , N C , NCHAR S 
LOGICAL MFLAG, NFLAG 

dimension INLINI 80) ,0UTLIN(80) ,OUEUE ( 30 , 10 ) ,NCi^A‘<S( 10) 

DATA HLNK/» •/, L I N6L N/80 /, BQ /O /, ENOQ/0/ 

1010 FORMAT I30A1) 

2060 FORMAT (• -TRUNCATED; ONLY 10 ITEMS PE? LINE-') 

2070 FORMAT (• -ILLEGAL CHARACTER OR BLANK COMMA, NO- • i 
C 

C .MFLAG GOES TRUE WHEN MULTIPLE INPUT LINFS ARE STACKED 

IF ( .NUT. ( .NOT. MFLAG) ) GO TO 9062 
READ ( IN, lOi.) ,ERR = 99,END=9S ) INLIN 
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FILE: SLEU2 



FHRT^A'J ri 



N).\VAL ('nST-'.R AUUATE SCMOIll 



9064 



906 5 



20 
9 06 6 
9068 



907 0 



9072 



907 3 



30 

9074 

9071 

906 9 

9062 

C 



40 



9076 
9 06 3 



I = I 

IF (..NOT. ( ( I .LE.LINELN ) .AND. (INL INI I I .Me. rCHAR ) ) ) GD TD QCv^5 

nUTL I N( I ) = I NLINI I ) 

I = I ^ I 
GQ TO 9064 
CCNT I NUC 
NC = I - L 

IF I INLINI I ) . eO.TCHAR) MFLAG = .TRUE. 

IF I .nut. ( I.L t.LINELN) ) GO TO 9066 
00 20 K = ULINELN 
OUTLINIK) = BLNK 
CONTI NUE 
CONTINUE 

IF {.NOT. ( INLINI I ).EO.TCHAR> ) GO TO ^Ob i 
IF ( . NOT. ( LNDO.GE. 10 ) ) GU TO 9070 

WRITE I OUT, 2060) 

INLINI I) = BLNK 
GO TO 9071 
CCNT I NUE 

ENDQ = ENOQ + I 
I = I > I 
J = I 

NFLAG = .TRUE. 

IF {.NOT. I I I.LE. LINELN) . AND. I INL INI I ) .NE.TCHAR ) ) ) GC T-" 

9073 

QUEUE! J , ENOQ) = INLINI I) 

IF I INLINII ).NE.8LNK) NFLAG = .FALSE. 

I = I «■ I 
J * J <• I 
GO TO 9072 
CONTINUE 

NCHARSIENDQ) = J - I 

IF! I I .GT.LINELN) .ANO.NFWAG) NCH AR S I cNDQ ) = 0 
IF I .NOT.I J.LE.LINELN) ) GO TO 9074 
DO 30 K = J, LI NELN 
QUcU£IK,£NOQ) = BLNK 
CONT I NUE 
CONTINUE 
CONTINUE 
GO TO 9068 
CCNT I NUE 
GO TO 9063 
CONT INUE 

GET LINE FROM QUEUE INSTEAD 
BQ = BQ + I 
NC = NCHARSIBQ) 

DO 40 I = I, LINELN 
OUTLINI I ) = QUEUE! I,BQ) 

CCNT I NUF 

IF I .NOT. I BQ. EQ. ENDQ) ) GO TQ 9076 
BQ = 0 
ENOQ = 0 
MFLAG = .FALSE. 

CCNT I NUE 
CONT INUE 
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RETURN 
9 a CONTINUE 
R E »'• I NO I N 
99 CONTINUE 

WRITE (OUT, 2070) 
GU Tl. IN ( n = 3LNK 
RE TURN 
ENO 



SUBROUTINE PUSH(X) 

PUSHES A POINTER TO A FREE LINE ONTO THE STACK 

COMNON /BLKl/ IN, OUT /RLK6/ STACK, STKPTR 
INTEGER STKPTR, IN, OUT 
lNTFf;FK<-'2 STACK, X 
01 ME NS I ON STACK! ^000) 

2030 FORMAT (» -FREE LINE LIST STACK OVERFLOW-') 

IF ( .NOT. { STKPTR .GT . 1) ) GO TO 9078 

STKPTR = STKPTR - I 
STACK! STKPTR ) ^ X 

GO TO 9079 

9078 CONTINUE 

STACK OVERFLOW 
WRITE (OUT, 2080) 

9079 CONTINUE 
RETURN 
ENO 



SUBROUTINE POP(X) 

POPS A POINTER TO A FREE LINE FROM THE STACK 

COMMON /BLKL/ IN, OUT /BLK2/ LPTR , MAXL IN , EOF /3LK6/ STACK, STKPTH 
INTEGER STKPTR, MAXLIN, EOF, IN, OUT 
INT£GER*2 STACK, LPTR, X 
DIMENSION STACK (4000) ,LPTR(^f000) 

2090 FORMAT {' -ALL SYSTEM BUFFERS FULL-') 

X * STACK! STKPTR ) 

IF ( .NUT.! STKPTR .LT. MAXLIN) ) GO TO 9080 
STKPTR = STKPTR ^ I 
GO TO 9081 
9080 CONTINUE 

WRITE (OUT, 2090) 

9031 CONTINUE 
RE TURN 
END 



SU3R0UT I NE CNVRT ( ST R I NG , I , J , N) 

CONVERTS CHARACTERS I THROUGH J OF STRING INTJ A J INTE';ER N 
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FILE: SLEO/? Fi/RTRAN Tl MAVAl R I S FuR A.JUA TE 5.Ch;"1I 

C 

IMTEGtR<‘^ brwiNGfOIGIT 

INTEGER I,J,M,K,L 

DIMENSION string (80) .DIGIT (10) 

DATA ClGIT/'n','l*,*2',’3',"=^'.'5','E',' 

N = 0 ' 

DO 2 0 K = I ,.) 

L = L 

9082 IF (.NOT. ( S F R I rJG ( K ) . NE . D I G I T ( U ) ) GO FO 9083 

L = L <■ I 
GO TO 9082 

9083 CONTINUE 

IF (.NOT.(L .LE. LJ) ) GO TO 9084 
N = N ^ ( L-L ) *{10**( J-K ) ) 

GO TO 90 8:. 

9034 CONTINUE 

N = -99999999 
RETURN 

9085 CONTINUE 
20 CONTINUE 
RE TURN 
END 



SURROUTINE C0MLIN(C I , CL I NE , N I , N2 , E Ft AG ) 

FINOS AND INTERPRETS THE LINE NUMBERS CONTAINED ON A 
COMMAND LINE. CHECKS FOR ERRORS. 

INTEGER Cl.Nl.NZ.I.J 
INTEGfcR*2 CLINE, 8LNK, COMMA 
LOGICAL EFLAG 
DIMENSION CLIN6( 80) 

DATA BLNK/' •/ .COMMA/* ,' / 

EFLAG = .FALSE. 

C FIND FIRST DIGIT 

I = Cl 
J = I 

9036 IF (.NOT. {( CL I NE ( J ) .NE . BLNK ). AND. ( C L 1 9 E ( J ). NE . COMM A ) ) ) GO TO 9)' 

*7 

J = J L 
GO TO 9086 
9087 CONTINUE 

IF ( .NUr.( J.GE.80) ) GO TO 9088 
EFLAG = .TRUE. 

GO TO 9039 
9083 CONTINUE 

C CONVERT FIRST NUMBER TO AN INTEGER 

CALL CNVRT(CLINE, I,J-l,Nl) 

C LOOK FUR SECUNO NUMBER 

I = J «• I 
J = I 

9090 IF (.NOT. (CL INE( J) .NE.BLNK ) ) GO TO 9091 
J = J 1 
GO TO 9090 



40 



ooooooo 



FILE: :>LE.T? FORTRAN T1 
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90<?1 CCMTINUe 

IF (.NUT.(J .OE. yO) ) GO TO 9092 
iiFLAG = .1 ROE . 

GO TO 9093 

9092 CONTINUE 

IF (.NOT. (I .£Q. J) ) GO TO QO'J-A 
C NO SECONO NUMBER EXISTS 

N2 = Nl 
GO TO 9095 
909 ^ CONTINUE 

C CONVERT SECONO NUMBER 

CALL CNVRT ( CL I NE , I , J- 1 f N 2 ) 

9095 CONTINUE 

IF (Nl ,GT. N2) EFLAG = .TRUE. 

9093 CONTINUE 
9089 CONTINUE 

RETURN 
ENO 

subroutine SEARCH(LIN£, STRING, NCfMATCH, MCI ) 



PART OF SLED PACKAGE 

SEARCHES ‘LIME* FUR THE FIRST OCCURRENCE OF 'STRING*. 

•MATCH* IS SET TO •.TRUE.' IF A MATCH IS FOUNU. 

•NC* IS THE NUMBER OF CHARACTERS IN 'STRING' (REQUIRED INPUT) 
•MCI* IS AN OUTPUT INDICATING FIRST COL OF MATCH 



INTEGER I,J,L,NC,MCl 
lNTEGER-«'2 LINE, STRING 

lugical match 

DIMENS ION L INE ( 80) , STRING! 30 ) 

J = I 

MATCH - .FALSE. 

9096 IF (.NOT. ( ( .NO T . MA T CH ) . AN 0 . ( J .L E. 8 I -NC ) ) ) GO T3 9097 

9098 IF (.NUT. ( ( S TR I NG ( I ) . N E . L I NE ( J ) ) . AN 0. ( J . LE . 8 I - NC ) ) ) GO TO 909 

*9 

J = J ♦ I 

GU TO 9098 

9099 CCNflNUE 

IF ( .NUT.( J.LE.31-NC) ) GO TO 9100 
I = I 
L = J 

9102 IF (.NOT. ( (STRING! I <-1 ) .EQ.L INE(L + 1 ) ) .AND. ( ( L + I ) . L T . 30 ) . AN 

*0. ( I ♦! .LE.NC ) ) ) GO TO 9103 

L = L + 1 

I = I «• I 

GU TO 9102 

9103 continue 

IF (.NUT. (I .Eg. NC) ) GO TO 910A 
MATCH = .TRUE. 

GU TJ 9105 
9 10 A CONTINUE 

J = J I 

9105 CONTINUE 

9100 CONTINUE 
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GO TO 9096 
CONT IN’JE 
MC I = 0 
RE TURN 
END 
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Appendix B 

SLED PASCAL Implementation 
(by R. Burnham, R. Coulter, and S. Smart) 
CONCEPTS 



The purpose of this programming project was to implement a sim- 
ple text editor to run under standard PASCAL as defined in Wirth [1972]. 
The specifications for the program are fairly extensive and seek to 
define the program in specific enough terms to ensure portability. In 
designing and implementing this program, the following two goals were 
util ized : 

a. PORTABILITY. The finished program should be capable of running 
under any implementation of standard PASCAL. 

b. STANDARDIZATION. The finished program should abide by the 
detailed specifications provided for the user interaction with any 

implementation dependent features fully documented to facilitate use by 
both inexperienced and experienced users. 



SYSTEM DESIGN 



The overall design for the text editor was heavily influenced by 
the strict requirements of the specification document. This specifica- 
tion delineated the commands that were to be implemented and their for- 
mat. The primary design task involved creating an efficient system 
which included the required commands in an implementation independent 
program. 



FILE MANAGEMENT. The primary purpose of any text editor is to 
create and modify text (character) files in an interactive manner. This 
problem can be separated into several functional areas. The first of 
these is file manipulation and management. In as much as PASCAL was 
designed primarily as a pedagol ogical aid, the language lacks extensive 
input/output operations. This in turn allows the various implementa- 
tions to define these operations. Since this would necessarily result 
in operations which were not portable, it was decided to design the pro- 
gram to meet the requirement that the user be able to access external 
text files from within the program and that the program not fail if the 
user attempted to access a non existant file. 



The Berkeley Pascal implementation for the UNIX operating system 
(which was used for this effort) defines three types of files, in addi- 
tion to the standard input and output files. The first of these con- 
cerns explicit naming. In this case, the file name is placed in the 
program heading and acts as a passing "parameter" from the UNIX operat- 
ing system into the program. The file so named must exist as a UNIX 
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The second type is an implicitly defined file. These files are 
declared in variable declaration sections of program blocks and have 
scope in the same manner as variables. When a block is entered, the 
file is created with the UNIX filename tmp.x where x is an integer 
representing the chronological order in which the file is used. When 
the block is exited, the file is destroyed. 



The third type of file uses a dummy file name convention. The 
file name is declared in the variable declaration section but can be 
equivalenced to an existing file by the system functions reset and 
rewrite. These functions create a UNIX path between the dummy file name 
and the actual UNIX name, which may be supplied during execution. In 
the case of rewrite, if no UNIX file exists, it is created. 



The dummy file name seemed ideally suited to the program 
requirement that the user be able to create and access files at will. 
However, it is necessary to know whether the file which is to be opened 
has been previously created. Since it is impossible for the program to 
access the UNIX user's directory to determine if files exist, it was 
decided to create a SLED directory containing the file names and sizes 
of all files created in the SLED environment. In the event that the 
user desired to edit a file which existed in his UNIX directory but not 
in the SLED directory, the SLED directory could be edited to include 
this filename. To implement this feature, it was decided to explicitly 
name this directory <directory> as a UNIX file. Any additional files 
needed as temporary storage locations to be utilized while a file was 
being edited could then be implemented as implicitly named files, since 
their existence is not important to the user (unless the amount of file 
space allocated to the user by the operating system is limited). 



TEXT MANIPULATION. As a text editor, SLED has to carry out two 
basic functions. The editor must insert and delete lines of text in the 
file, and must search lines for pattern matching and replacement. 
These functions are related and are the dominant factor in the choice of 
an effective data structure. 



PASCAL has several data structure constructors in the language 
which can be used to fulfil these tasks. These include the linear 
array, record, and pointer. The salient features of these constructors 
in regards to the tasks involved will now be discussed. 



The PASCAL array is similar to arrays in other languages with 
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the exception that the elements of the array may be complex data types 
such as records. Since the array must be statically defined, the 
storage can be highly efficient. Lines of text can be stored as charac- 
ter arrays. This has the advantage that locating a given line or char- 
acter can be accomplished by simply subscripting a variable. In addi- 
tion, overhead is at a minimum since no pointers, links or other devices 
are required. The array suffers from the disadvantage that insertions 
and deletions are expensive as they require copying on the average half 
of the array. Furthermore, since the array must be defined staticly, it 
is likely that much of the array will be empty at any one time. 

The record data structure is similar to the array except that 
the elements of the record need not be of the same data type. By 
itself, the record offers no advantages as compared to the array. How- 
ever, the record fields can be used to act as pointers or links to other 
records thus allowing the creation of lists or trees. Trees offer the 
advantage that sorting, inserting, and deleting can be carried out quite 
efficiently. In addition, searching is easier and more efficient than 
with linked lists (although not as efficiently as an array). The major 
disadvantage of the tree is the large amount of overhead required since 
each interior node must contain a link to each descendant. The linked 
list can be considered as a compromise of the tree structure. Inser- 
tions and deletions are still efficient, but searching requires follow- 
ing a string of pointers through the list. Since only one pointer is 
required for each node, the amount of overhead is approximately halved 
compared to the tree. 

The pointer type represents a method of dynamic allocation of 
records to a linked list or tree structure. This offers the advantage 
that space need not be allocated until actually required. Unfor- 
tunately, the methods for allocating and de-allocating memory space via 
pointers is poorly defined in the language, resulting in implementation 
dependent designs. In particular, standard PASCAL allows pointers to 
records to be destroyed resulting in the creation of garbage. No gar- 
bage collection is carried out by the language to recover this memory. 
Therefore, a common technique is to place unused records into a "free" 
list. This, however, defeats the idea of dynamic allocation. 

Based on these considerations, it was decided that lines within 
the text file would be treated as a linked list. This would facilitate 
the line append and line replace operations. The overhead for this 
structure would then be one pointer per line, which was not considered 
excessive. Rather than depend on the pointer type to create and manage 
list elements, it was decided that the list would consist of an array of 
line records, with each record consisting of a pointer to the next line 
and the contents of the line. 

In representing the characters of a given line, it was necessary to 
decide between using another linked list for elements of a line or a 
character array. Again, the linked list would make character insertions 
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and deletions efficient. Since this would require a pointer for each 
character, about half of the memory space allocated would be overhead. 
A possible compromise would be to have each list node consist of several 
characters. This would create difficulties in insertion and deletion 
and would require a complicated algorithm to implement. It was decided 
to represent the line as a character array. This hSd the benefit of 
making the pattern matching algorithm easier to implement as well as 
reducing overhead. 

PARAMETERIZATION. To allow for adaptations of the program to 
other systems, the parameters for the data structure are defined in a 
constant declaration block in the main program. This allows implementa- 
tions to scale the size of the data structure to the amount of memory 
available. To further enhance portability, it was decided to localize 
the input/output procedures in separate routines which could be replaced 
when implementing the system on other machines. 



IMPLEMENTATION 



The linked line list was implemented as an array of line records 
named <buff>. Each line record consists of an integer pointer to the 
array element (record) of the next line and a 120 character packed 
array. This size allows the creation of a line which will cover the 
1 inesi ze of most standard output devices. In addition, a separate 
record, <head>, serves as a pointer into the line list and contains the 
number of the first line presently in the buffer. 

GENERAL STRUCTURE OF SLED. The editor basically has five 
categories of text processing procedures. The first of these are the 
control commands. There are three types of control commands: a change 

of logical message terminator so that the user may select the symbol or 
character he desires to indicate an end of a line or command, a command 
to exit the editor mode which will write the text file to the user's 
file as well as terminate the program, and a command to open a file for 
the user, either a new file or an existing file from his directory and 

close any previously opened file. As discussed in the section on 

design, this was implemented as a separate SLED directory. The contents 
of the directory consist of the UNIX file name along the total number of 
text lines in the file. In addition to this, a scratch file is main- 
tained to allow updating of the directory contents. 

To implement the logical terminator, it was decided to limit the 
terminators to printable characters. This allowed the terminator to 

serve as an end of line signal in the text buffer, eliminating the need 
for creating a separate list of line lengths or employing some other 
line length algorithm. 

The second group of commands consists of those commands 
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concerned with output of the text file to the CRT scree. These commands 
are divided into those which display a specific portion of text and 
those which display large blocks of text. These commands, called output 
commands, consist of routines to display the current line, a specific 
line or a designated number of lines. The user optionally selects a 
from-line/to-line pair of numbers for display and defaults to the 
current line (defined as the last line displayed or last line operated 

upon). Another output command screens a large block of text for the 

user by using a from-line input. These display commands allow the user 

to edit large portions of his text. Two other commands, which do not 

process or handle text, and are considered output commands are a pro- 
cedure to display a command menu to assist the user with SLED procedures 
and a display of the version listing for a more sophisticated user. 

The third type of commands are those which handle insertion of 
text into the file. The line insertion commands cause the editor to 

enter the insert mode (all other procedures are in the edit mode). 

These commands allow insertion of new lines into the text as well as 
replacing a specific line or a group of lines in the text. In this way, 
the user can create or destroy portions of his text file by linking the 
new lines into the buffer list. 

A fourth command searches the text for a particular character or 
string of characters and displays them to the user. Closely related to 
this is the command to replace these characters and strings in the body 
of the text, either in a specific line, a group of lines or throughout 
the entire text. These two types of commands along with the line inser- 
tion commands form the basis of the text processing procedures, while 
the output and control commands form the basis of the text handling pro- 
cedures. To implement the pattern matching routine the Knuth , Morris, 
Pratt algorithm (as discussed in Knuth and elsewhere) was utilized. 

This algorithm uses the concept of a finite automation to determine how 

far to advance the pattern along the target line in the event of a 
mismatch between the pattern and its target. This is done by creating a 
table of edges which represent failure in the automaton. As an example, 
if the pattern consists of three identical letters and the first two 
match but the third one does not, instead of advancing the pattern by 
one position relative to the target the pattern can be moved three 
places since the first character cannot possibly match the third charac- 
ter of the target. The next table determines how far to advance dthe 
pattern if matching fails with the ith character of the pattern. In 
this way, no back-tracking in the target is required and the algorithm 
is 0(n). The diagram attached as Figure Bl.l shows the general scope of 
SLED as defined in the specification document. It basically shows the 
editor commands required by the system grouped into the five primary 
command areas; output, control, line insertion, string serch and string 
replacement. The diagram also shov/s the different editor command modes. 

SPECIFIC STRUCTURE OF SLED. Based on the general structure of 
SLED as proposed by the problem specification and as diagramed above. 
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the programming team made a detailed study of the basic routines needed, 
how these routines would interact and the data structures and file han- 
dling procedures that would be needed’. The Figure B1.2 is a schematic 
of the implementation of SLED as described in this documentation. In 
implementing the SLED program, a top-down methodology was utilized in 
defining the program processes needed to meet the requirements stated 
above. 



There are four general sections or levels to the program. The 

first level acts as a traffic controller for the entire program. It 

reads each of the user input commands and branches to the appropriate 

subroutine. The main program dunctions as this first level and screens 

the commands, eliminating the incorrect ones and processing the properly 
entered ones. It is the framework in which SLED performs its functions. 

At this same level , the change terminator is located primarily 
because it does not handle the user data except to place the new termi- 
nator symbol in the text file (see procedure Changeterm documentation). 
It is properly classified as a special procedure in program control 
rather than text processing or text handling. 

The second level of the program contains the bulk of the text 
processing procedures and consequently, the bulk of the coding. One 
subgroup contains the procedures which display the lines of text from 
the user's file. In many ways, it is similar to the output section out- 
lined in the original evaluation. In addition to the screen line and 
display line procedures, we have included the string search procedure in 
this subgroup because it functions in a similar manner in that it is 
involved in the display of strings within the lines of text. This sub- 
group interfaces with a major subgroup of the third level, namely the 
commands which read the user's line number designations, translate them, 
and fetch the lines from the text file. 

The second major subgroup of this level consists of the commands 
which handle the majority of the text insertions, deletions and string 
processing. These include appending lines, replacing Tines and replac- 
ing or changing strings. These commands were grouped together due to 
their similarity of function and commonality of coding. They each have 
major subprocedures at this level and interface with the primary text 
handling procedures at the fourth level. 

Also found at the second level are two other groups of pro- 
cedures which are of less importance than the text processing procedures 
but are useful and necessary segments of the SLED program. The first of 
these are the control commands which open and close the file. They are 
obviously required file handling procedures and perform the functions 
normally expected of a text editor. They interface with key implementa- 
tion dependent procedures at the third level. 

The last major subgroup of the second level is the required 
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command menu and version document. The call to these procedures is 
rather simple and uncomplicated. Rather than palce the documents in the 
PASCAL program, we decided to employ the existing UNIX directory to hold 
them. These files are explicitly named in the program as <menu> and 
<version>. The file contains the current command menu as well as the 
version and any changes to either of these to facilitate assisting the 
user can be made quickly and efficiently. 

The third level of programming of SLED contains two subgroups, 
each of which are subroutines for major procedures in level two. The 
first subgroup are theroutines which transform the user line number 
requests into from-1 ine/to-1 ine pairs and fetch the appropriate lines 
from the user's text. They are text handling commands and are part of 
the output section in the original specification. 

The second subgroup interacts with the open and close file rou- 
tines and are key text handling procedures. They are dependent upon the 
impl ementaion of PASCAL in use on the computer system. The procedures 
utilize a directory file which, like the menu and version, is located in 
the UNIX directory. 

The fourth level of SLED contains the key text hadling commands 
to move data in and out of the buffer when required. All of the major 
procedures of SLED call the read buffer and write buffer routines to 
move through the user's file. These procedures are also implementation 
dependent. 

A minor procedure of the program is also found at this level 
which causes the command menu to be printed when the user makes two con- 
secutive errors, a requirement of the SLED specification. 

TESTING AND EVALUATION 



The constraints of time prohibited an exhaustive and thorough 
evaluation of SLED. There has, however, been extensive and continuous 
testing of the modules of SLED in the initial programming phases and as 
the program took its finished form. While not exhaustive the testing 
and evaluation performed by the programming team has resulted in a fully 
operational and effective editor. 

Once the major operating bugs were identified and removed from 
the program, the task of specific debugging of each comman and its 
interaction with the other commands of SLED was undertaken, including 
the testing of pathological errors where purposely erroneous and 
improper commands were input with the express purpose of causing the 
system to perform incorrectly or fail. 



While we are satisfied that the program will function as required. 
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there is further room for testing of the system. The limited time 
available precluded the testing of large files and extensive directories 
and the actual production of useable and functional files. Besides the 
testing of large files, a period of time should be spent by disin- 
terested parties (actual users) in using SLED to produce files and test- 
ing the system. From this evaluation, any remaining system bugs should 
be easily identified and corrected. 
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SLED - PASCAL 
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documentation for the operation or 

THE BODY OF THE MAIN PROGRAM CAN 
BE FOUND AT LINE 2376 
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read all lines preceedina the first line of the buffer from 
the user’s file to the scratch file 
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e not eo f ( m f i 1 e ) do 

read I n ( m f i I e ) ; 



{read all remaininq lines from the user 
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PURPOSE: This procedure reads a block ^0 Hnes from a user 

file into tf»e buffer, Mfile is a dummy file name 
which is replaced during e^<ecufion by a "path” to 
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le not eoinimfi 
beg i n 

read(frfi le^ch); 



buffin.linestrinq(k) := ct; 
if i > 1 then bu f f 1 i - 1 1 . ne X t 1 i ne 
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writeln(error) / 
errcnt : = errcnt + 1 

linp := curHne } 
f o 1 i ne : = line ; 
screenchec^ := false 



writeln(error) ; 

writeln(* Data is entered *' fromlinef toline 

line : = cur I i ne # 
errcnt := errcnt ♦ 1 J 
toline : = line # 
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texfsize := textsize - (endline - strtline ) 
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bufflpoointl.nextline := free? 
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